ПРОШУ, ПОМОГИТЕ! 1) Составьте программу вычисления суммы ченых чисел…

Question

ПРОШУ, ПОМОГИТЕ! 1) Составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100. 2) Составьте программу вычисления произведения чисел от 1 до 10. 3) Составьте программу, которая находит сумму квадратов чисел от 1 до 10.

Answer 1

63

sipler

23 марта 2023

Program a1; var x1, sum: integer; beginsum: =0; for x1: =1 to 100 doif x1 mod 2=0 then sum: =sum+x1; writeln (sum); end.program factorial; var x1,fak: integer; beginfak: =1; for x1: =1 to 10 do fak: =fak*x1; writeln (fak); end.program a3; var x1,sum: integer; beginsum: =0; for x1: =1 to 10 do sum: =sum+sqr (x1); writeln (sum); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: