Ответы
Ответ дал:
0
1 var a,b:integer;
begin
a:=10;
while(a<=27) do
begin
a:=a+1;
b:=a*a;
writeln(a, '^2 = ', b)
end;
end.
2 var i,s:longint;
begin s:=1;
for i:=23 downto 5 do
beginif (i mod 2 = 0)
then s:=s*i;
end;
writeln(s);
end.
3 var i, s : integer;
begin
s:=1;
for i:= 14 to 98 do
if i mod 7 = 0 then s:=s*i;
writeln(s);
readln
end.
begin
a:=10;
while(a<=27) do
begin
a:=a+1;
b:=a*a;
writeln(a, '^2 = ', b)
end;
end.
2 var i,s:longint;
begin s:=1;
for i:=23 downto 5 do
beginif (i mod 2 = 0)
then s:=s*i;
end;
writeln(s);
end.
3 var i, s : integer;
begin
s:=1;
for i:= 14 to 98 do
if i mod 7 = 0 then s:=s*i;
writeln(s);
readln
end.
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад