Var n, i, count: integer;
begin
count := 0;
for i := 1 to 16 do begin
read(n);
if n mod 10 = 6 then count := count + 1;
end;
writeln(count);
end.
Объем текста рукописи = 2048*1024*64*16 бит = 2048*1024*64*16/8 байт =
2048*1024*64*2 байт = 2048*1024*64*2/1024 Кбайт = 2048*64*2 Кбайт =
2048*64*2/1024 Мбайт = 2*64*2 Мбайт = 256 Мбайт
Объем рукописи с рисунками = 256+2650*6 = 256+15900 Мбайт = 16156 Мбайт
16 Гбайт = 16*1024 Мбайт = 16384 Мбайт
16384 Мбайт > 16156 Мбайт
Ответ:
а) объем рукописи = 16156 Мбайт
б) рукопись поместится
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
program pascal;
var s, v, r:real;
begin
writeln('ВВедите радиус');
readln(r);
s:=4*3.14*r*r;
v:= 4/3*3.14*r*r;
Writeln('Площадь шара=',s,'Объем шара=',v);
end.
1 это бабочка
2 бесконечность с разрывом
var
t : string;
begin
writeln('Введите текст:');
readln(t);
t := Regex.Replace(t, '.', '.$0');
writeln(t);
end.