F= 4* 32*2^10 *32 *2*60 = 2^2 * 2^5 * 2^10 *2^5 *2^3 *15=
=2^25 *15 бит = 2^2 * 15 Мбайт = 60 Мбайт
Ответ 60 Мбайт
1) графическая
2) текстовая
3) звуковая
4) виденоинформация
5) текстовая
Это б)
uses crt;
var S,b,h:real;
begin
writeln('Введите b,h':);
readln(b,h);
S:=1/2*b*h;
writeln('S=',S);
readln;
end.
а)
uses crt;
var a,b,c,P:integer;
begin
writeln('Введите a,b,c':);
readln(a,b,c);
P:=a+b+c;
writeln('P=',P);
readln;
end.
в)
uses crt;
var a,b,c,S,R1,R:real;
begin
writeln('Введите a,b,c,S':);
readln(a,b,c,S);
R1:=a*b*c;
R:=R1/4*s;
writeln('R-',R);
readln;
end.
Var n:integer;
a:array[1..27] of string[15]=
('один','два','три','четыре','пять','шесть','семь','восемь','девять',
'десять','одиннадцать','двенадцать','тринадцать','четырнадцать',
'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать',
'двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят',
'восемьдесят','девяносто');
begin
write('N (1..99) = ');
readln(N);
if (n>=1)and(n<=19)
then writeln(a[n])
else begin
write(a[n div 10 + 18]);
if n mod 10 <> 0 then write(' ',a[n mod 10]);
writeln;
end;
end.
Пример:
N (1..99) = 46
сорок шесть