Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
компьютер телфон и иже с ними
var a,b,c: integer;
begin
read(a,b,c);
if a> =0 then writeln(a);
if b> =0 then writeln(b);
if c> =0 then writeln(c);
end.
сначала 9кбайт переделываем просто в байты. поэтому 9*1024=9216. потом переводим в биты? 9216*8=73728. и делим на 2048. получается 36 секунд.
var a: array [1..10] of integer;
i: integer;
for i: =1 to 10 do begin
readln(a[i]);
if a[i]< 0 then a[i]: =abs(a[i]);
writeln(a[i]);
end;
Популярные вопросы