Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.
<span>а) 25 в 10 степени;
б) 47 в 10 степени;
с) </span>25 в 10 степени.
Какие задачи??? Тут нету вложения
Что бы наверняка охватить все возможные символы, пусть текст кодируется по стандарту UTF-16, т.е. 2 байта на символ.
Далее нужно измерить кол-во символов в строке, потом количество строк на странице, количество страниц в учебнике.
Таким образом получим емкость страницы:
(кол-во строк на стринце)*(кол-во символов в строке)*(кол-во страниц в учебнике)*2 = байт/учебник. Назовем полученную величину емкость учебника E;
Далее делим.
360 Кбайт: 360*1024 / E
1.44 Мбайт: 1.44 * 1024^2 / E
420 Мбайт: 420 * 1024^2 / E
6,4 Гбайт: 6.4 * 1024^3 / E
Вариант программы и результата её выполнения на скриншотах.