Var n,a,b,s:integer;
begin
read(n1);
a:=n1 div 10;
b:=n1 mod 10;
s:=a+b;
n:=10*b+a;
writeln(s);
writeln(n);
end.
Var a,b,a1,b1:real;
begin
readln(a,b);
if a = b then writeln('Числа равны')
else
if a>b then begin
a1:=2*a*b; b1:=(a+b)/2;
a:=a1;b:=b1;
writeln('a = ',a,' b = ',b)
end
else begin
b1:=2*a*b; a1:=(a+b)/2;
a:=a1;b:=b1;
writeln('a = ',a,' b = ',b);
end;
end.
Uses Crt;
const
n=40;
var
i,s:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i*i*i;
ClrScr;
Writeln(s);
ReadKey
end.
<u>Результат</u>
672400
<span>program amoeba; </span>
<span>var i,count:integer; </span>
<span>begin </span>
<span>i:=3; //количество часов </span>
<span>count:=1; //количество амеб </span>
<span>while i < = 24 do </span>
<span>begin </span>
<span>count:=count*2; //каждые 3 часа количество амеб удваивается </span>
<span>writeln(i,' hours: ',count); //выводим кол-во часов и амеб </span>
<span>i:=i+3; </span>
<span>end; </span>
<span>readln; </span>
<span>end.</span>
var
a, b: integer;
begin
write('введите две стороны = >');
readln(a, b);
writeln('периметр = ', 2 * (a + b));
writeln('площадь = ', a * b);
end.