Предмет: Информатика,
автор: natalialukina
Составьте программу вычесления суммы чисел в диапозоне от 1 до 100. 2+4+6.......+100, номер 2 Составьте программу вычесления произведения чисел от 1, до 10. 1*2*3*8..* 10
Ответы
Автор ответа:
0
1)program kokoko;
uses
crt;
var
i,k:integer;
begin
for i:=1 to 100 do k:=k+i;
writeln(k);
end.
2)program kokoko;
uses
crt;
var
i,k:integer;
begin
k:=1;
for i:=1 to 10 do k:=k*i;
writeln(k);
end.
uses
crt;
var
i,k:integer;
begin
for i:=1 to 100 do k:=k+i;
writeln(k);
end.
2)program kokoko;
uses
crt;
var
i,k:integer;
begin
k:=1;
for i:=1 to 10 do k:=k*i;
writeln(k);
end.
Похожие вопросы
Предмет: Русский язык,
автор: lina2514
Предмет: Русский язык,
автор: smasya04
Предмет: Химия,
автор: dianna5946
Предмет: Биология,
автор: Karina6754
Предмет: Биология,
автор: kostyaserov