<span>ДАНО:2^30
НАЙТИ В МБАЙТАХ
</span><span>2^30/2^3/2^10/2^10=2^7=128</span>
1) 10 мин. = 600 сек
45×40=1800 сим.
90×600=54000 сим.
54000÷1800=30 страниц
2) 1.25 мб=1310720 б
1310720÷2560=512 бит.
и получается 2 в 512 степени символов
Var n, i, k:integer;
begin;
readln(n);
for i:=100 to 999 do
if (i mod 10) + (i div 100) + (i div 10 mod 10) = n then begin;
writeln(i);
k:=k+1;
end;
writeln(k);
end.
Ответ:
program Test;
var
n, t: Integer;
b: Boolean;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if (n >= 100) and (n <= 999) then begin
if (n mod 10) mod 2 = 0 then
WriteLn ('четная')
else
WriteLn ('не четная');
end else
WriteLn (n, ' - не трехзначное');
ReadLn;
end.
Var
a:longint;
begin
readln(a);
writeln(a×a×a);
end;