Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
Есть много решение этой задачи. Вот моё.
program n_1;var a:real;beginread(a);a:= a / 2;writeln(a,' ',a);end.
вес одного символа не написали.
если кодировка ASCII 1 байт
если кодировка UNICODE 2 байта
1 мб = 1024 кб
1кб = 1024 байта
1 мб = 1024*1024=1048576 байт
1 страница 60*65 = 3900 байт
1048576/3900 = 268.86 страниц для кодировки ASCII или 268.86/2=134.43 в UNICODE
Ответ: 268 страниц в ASCII или 134 страницы в Unicode