Ответы
Ответ дал:
0
program abc;
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(a<b) then
for i:=1 to b do
begin
i1:=i+1;
c:=i1+i;
end;
if(a>b) then
for i:=1 to a do
begin
i1:=i+1;
c:=i1+i;
end;
writeln(c);
end.
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(a<b) then
for i:=1 to b do
begin
i1:=i+1;
c:=i1+i;
end;
if(a>b) then
for i:=1 to a do
begin
i1:=i+1;
c:=i1+i;
end;
writeln(c);
end.
Ответ дал:
0
не считай :(
Ответ дал:
0
program abc;
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(a<b) then
for i:=1 to b do
begin
c:=i*(i+1);;
end;
if(a>b) then
for i:=1 to a do
begin
c:=i*(i+1);
end;
writeln(c);
end.
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(a<b) then
for i:=1 to b do
begin
c:=i*(i+1);;
end;
if(a>b) then
for i:=1 to a do
begin
c:=i*(i+1);
end;
writeln(c);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад