Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.
Ответ:
2 бита, 512 битов, 50 байтов, 500 байтов, 0,5 кбайта
var
a, b, sum, index: word;
begin
sum := 0;
read(a,b);
for index := 1 to b do sum += a;
write(sum);
end.
<h2>№2</h2>
Промежуточные значения n и s даны в приложении.
Ответ: 30.
<h2>№3</h2>
var n: integer;
begin
read(n);
if n mod 2=0 then n:=n div 4
else n:=n*5;
writeln(n);
end.
<h2>№4</h2>
var
x, y: integer;
begin
read(x);
if x > 5 then y := x * x - 1
else if x < -2 then y := 2 * x;
writeln(y);
end.
<h2>№5</h2>
var
i: integer;
pr: biginteger;
begin
pr := 1;
for i := 10 to 25 do
if i mod 2 = 1 then pr := pr * i;
writeln(pr);
end.