Найти произведение всех положительных целых чисел от а до в

Bong144 Bong144    3   01.06.2019 16:20    2

Ответы
Xro8 Xro8  02.07.2020 18:49
Var a,b,z:integer;
begin
readln(a,b);
for a:=a to b do
z:=a+b;
writeln(z);
end.
ПОКАЗАТЬ ОТВЕТЫ
AntonTeplyakov AntonTeplyakov  02.07.2020 18:49
Var a,b,s,i:integer;
begin
s:=1;
read(a,b);
for i:=a to b do
s:=s*i;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика