Десять итераций увеличения s на 2
s = 20
1/2048 Кбайт = 1/2048 * 1024 = 1/2 байта = 4 бита
№1
var vol, a, b, c: real;
beginwrite('Введите сторону а: ');
readln(a);
write('Введите сторону b: ');
readln(b);
write('Введите сторону c: ');
readln(c);
vol := a * b * c;
writeln('Объем прямоугольного параллелепипеда равен ', vol);
<span>end.
№2
const a = 3;
const h = 7;
var S: real;
begin
S := 1 / 2 * a * h;
writeln('Площадь треугольника равна ', S);
<span>end.
№3
var s: string;
begin
s := 'Чему равно 10 : 2?';
writeln(s);
readln();
<span>end.</span></span></span>
Var
i,k:Integer;
Begin
for i:=10 to 99 do
if (i mod 10 = 5) or (i mod 10 = 0) then k:=k+1;
Writeln(k);
end.