program Vyv;
var a,b,i:integer;
begin
write('Введите начало диапазона a = ');
readln(a);
write('Введите конец диапазона b = ');
readln(b);
for i:=a to b do
if (i<0) and (i mod 2 = 0) then write(i,' ; ')
end.
4 минуты-240 секунд.
Мы имеем в 3 раза меньше. 80 секунд.
Значит 8:3 и получаем 2,6
<span>1) 1 Кбайт = 1024 байт = 8192 бит
2) 0.1083984375 Кбайт = 111 байт = 888 бит
3) 2 Кбайт = 2048 байт = 16384 бит</span>
Наверное алгоритм но я точно не знаю
Var
i, t, max, n: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(t);
if (t mod 7 = 0) and (t > max) then
max := t;
end;
writeln(max);
end.