Задание:
ПРОШУ, ПОМОГИТЕ! 1) Составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100. 2) Составьте программу вычисления произведения чисел от 1 до 10. 3) Составьте программу, которая находит сумму квадратов чисел от 1 до 10.
Решение:
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.
Знаете другой ответ?