Ответы
Ответ дал:
0
var a,b,z:integer;
begin
readln(a,b);
for a:=a to b do
z:=a+b;
writeln(z);
end.
begin
readln(a,b);
for a:=a to b do
z:=a+b;
writeln(z);
end.
телега666:
благодарю
Ответ дал:
1
var a,b,s,i:integer;
begin
s:=1;
read(a,b);
for i:=a to b do
s:=s*i;
writeln(s);
end.
begin
s:=1;
read(a,b);
for i:=a to b do
s:=s*i;
writeln(s);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
7 лет назад