ПОПРОБУЙТЕ НАПИСАТЬ РЯДОМ 5 7 9
Вначале надо найти кол-во символов в одном сочинении: k=4*25*40=4000 символов. Далее переведем объем дискеты в биты: 1,44*1024*8=11796,48 бит. Ну и поделить одно на другое:11796,48:4000=2,95 Но на понятно,что на диск поместятся только целые сочинения,а не 0,95,так что ответ:2 сочинения.
Ввода: микрофон, джойстик, цифровой микроскоп, дисковод, веб камера, цифровой фотоаппарат
Вывода: видеопроектор, плоттер
Var a,i,n,k : integer;
Begin
randomize;
Readln(n);
for i:=1 to n do begin
a:=random(7)-3;
if a=0 then k:=k+1;
writeln(i,' число = ',a);
end;
Writeln('Количество 0: ',k);
end.
program qq;
var t, c: real;
begin
writeln('Введите кол-во минут');
readln(t);
c:= t*2;
writeln(c, 'бактерий будет через', n, 'минут');
end.