Var a:integer;
begin
writeln('Введите сторону куба');
readln(a);
writeln('Объем куба с ребром ',a,' равен — ',a*a*a);
writeln('Площадь поверхности куба равна — ', 6*a*a);
<span>end.
</span>
52 мб = 52 * 1024 кб = 53248 кб
24576 бит = 24576 / 8 байт = 3072 байт = 3072 / 1024 кбайт = 3 кбайта
Var fm, im: string;
i: integer;
begin
readln(фамилия, имя);
for i:= 1 to 20 do
writeln(имя,' ', фамилия);
readln;
end.
Program z;
Uses crt;
Var a,n,i,sum, pro:integer;
Begin
Sum:=0;
Pro:=1;
Writeln ('введите число a'); read (a);
Writeln('введите число n(>a)'); read (n);
For i:= a to n do
Begin
If odd(i) then
Begin
Sum:= sum+i;
Pro:= pro*i;
End;
End;
Writeln('sum=', sum);
Writeln('pro=', pro);
End.