ПРОШУ, ПОМОГИТЕ! 1) Составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100. 2) Составьте программу вычисления произведения чисел от 1 до 10. 3) Составьте программу, которая находит сумму квадратов чисел о...
ПРОШУ, ПОМОГИТЕ!
1) Составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100.
2) Составьте программу вычисления произведения чисел от 1 до 10.
3) Составьте программу, которая находит сумму квадратов чисел от 1 до 10.
Гость
Ответ(ы) на вопрос:
Гостьprogram a1;
var x1, sum:integer;
begin
sum:=0;
for x1:=1 to 100 do
if x1 mod 2=0 then sum:=sum+x1;
writeln(sum);
end.
program factorial;
var x1,fak:integer;
begin
fak:=1;
for x1:=1 to 10 do fak:=fak*x1;
writeln(fak);
end.
program a3;
var x1,sum:integer;
begin
sum:=0;
for x1:=1 to 10 do sum:=sum+sqr(x1);
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы