I = M*N*i = 50*40*16 = 32000бит;
32000:5 = 6400бит/сек = 800байт/cек
VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.
Program n1;
var a,sum: integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=4) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Инф.объем = частота * время * разрядность * кол-во дорожек
1 мин = 60 сек
Дорожка 1 (т.к. В условии не сказано что их несколько)
1,3 мб = 1,3*1024*1024*8 бит
1,3*1024*1024*8 = частота * 60 * 8 * 1
1,3*1024*256 = частота * 15
Частота =1,3*1024*256 / 15
Осталось посчитать
Read(a,b); c:=a+b; Write(a,b,c);
Только надо помнить, что на выводе все "слипнется" и не удивляться.