alexooooon
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.
Answers & Comments
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.