Юлия
4 год назад
найти произведение всех целых чисел от C до Dв паскале
ОТВЕТЫ
Мария
Oct 24, 2020
programm abc;
var c,d,i,p:integer;
begin
read (c,d);
p:=0;
for i:=c to d do
p:=p+i;
writeln(p);
end.
var c,d,i,p:integer;
begin
read (c,d);
p:=0;
for i:=c to d do
p:=p+i;
writeln(p);
end.
977
Смежные вопросы: