Var s: String; k, kol: Integer; Begin kol := 0; readln(s); while pos(' ',s) <> 0 do begin k := pos(' ',s); if k <> 0 then if k = 4 then begin kol := kol + 1; delete(s,1,4); end else delete(s,1,k); end; if length(s) = 3 then begin kol := kol + 1; delete(s,1,3); end; writeln(kol); End.
{ Использован код горизонтальной табуляции 09 для выравнивания вывода } var a,b,h,x:real; begin Write('введите a,b,h: '); Read(a,b,h); x:=a; while x<=b do begin Writeln(x,#09,#09,4*sin(x*x)+cos(x)); x:=x+h end end.
1,44 мегабайта влезет 2 книги в емкость в 700 мегабайт влезет 1 019 книг в емкость 4.7 гб влезет 7 009 книг
теперь решение всего в этой книге 720 000 символов. то есть 60 символов умножаем на 40 и умножаем на 300, будет 720 000 потом 1 символ равен 8 битам, то есть 720 000 умножаем на 8 будет 5 760 000 бит. 1 байт = 8 бит(ам) 1 клбайт = 1024 байта 1 мгбайт = 1024 клбайта 1 гигабайт = 1024 мгбайта переводим 5 760 000 / 1024 = 720 00 байт 720 000 байт делим на 1024 получаем 703.125 клбайт 703.125 / 1024 = 0,6866455078125 мегабайт теперь делим 1,44 на 0,6866455078125 получаем 2.097152 (2 книги) потом 700 мб делим на 0,6866455078125 получаем 1 019 книг 1 гигабайт равняется 1024 мегабайта, 4.7 умножаем на 1024 получаем 4 812,8 мегабайт, и делим 4 812, 8 мб на 0,6866455078125 и получаем 7 009 книг.
k, kol: Integer;
Begin
kol := 0;
readln(s);
while pos(' ',s) <> 0 do
begin
k := pos(' ',s);
if k <> 0 then
if k = 4 then begin
kol := kol + 1;
delete(s,1,4);
end else
delete(s,1,k);
end;
if length(s) = 3 then begin
kol := kol + 1;
delete(s,1,3);
end;
writeln(kol);
End.