Var
A:integer;
Begin
For A:= 1 to 50 do
WriteLn(A*A);
End.
Ответ:
вот на фото представлен пример, а там уже делайте свою по своей заданной теме
Program n1;
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*b>c*d) then
begin
a:=a*2;
b:=b*2;
end else begin
c:=c*2;
d:=d*2;
end;
write(a,' ',b,' ',c,' ',d);
end.
1) 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J
2) 3*10 в 4(степени) + 2*10 в 3 + 4*10 во 2 + 7*10 в 1 + 8*10 в 0 + 3* 10 в -1 + 8*10 в -2 = 3*10000 + 2*1000 +4*100 + 7*10 + 8*1 + 0,3 + 0,08 = 32478,38