Бит - минимальная еденица
K=4*30*50=6000 символов
I = K * i
I=4500 байт = 36000 бит
i=6
Var ma,kol,bol,n,x,i:integer;beginread(n);for i:=1 to n do begin read(x); if x<30 then inc(bol); if x>ma then ma:=x; end;writeln(ma);if bol>0 then writeln('YES') else writeln('NO'); end.
Какие предложения? Напиши по подробнее
Ответ:
program n1;
var time, seconds, minutes, hours: integear;
begin
readln(time);
seconds := time mod 60;
time := (time - seconds) / 60;
minutes := time mod 60;
time := (time - minutes) / 60;
hours := time;
writeln (hours, ' часов ', minutes, ' минут ', seconds, ' секунд');
end.
Объяснение:
Написано на языке Pascal