1,3 Мбайт = 1,3*1024 Кбайт = 1,3*1024*1024 байт = 1,3*1024*1024*8 бит
1 мин = 60 сек
частота дискретизации = (1,3*1024*1024*8)/(60*16) ≈ 11360 Гц
запусти несколько бесконечных циклов, и комп 100% висанет
Это интернетная,мобильная сеть
Ответ:
var
a, b: Real;
c : Integer;
begin
Write ('A, B = ');
ReadLn (a, b);
c := 0;
if a > 0 then
Inc (c);
if b > 0 then
Inc (c);
WriteLn ('Количество положительных = ', c);
ReadLn;
end.