Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var i: integer;
begin
for i: =1 to 1000 do
if (i mod 3=0) or (i mod 7=0) then write(i);
end.
80 * 60 = 4800 символов на 1 странице
4800 * 450 = 2160000 символов в книге
обычно 1 символ кодируется 1 байтом информации, значит
в книге 2160000 байт, переведем их в мегабайты
2160000 : 1024 = 2109,375 кб (килобайт)
2109,375 : 1024 = 2,06 мб (мегабайт)
следовательно рукопись на 1 дискету не поместится, для нее необходимо 2 дискеты.
64*48*12*8=294,912- обьем в байтах 1 стр
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
d: =d+k;
val(s,k,err);
end;
write (d);
Популярные вопросы