Program n1;
var a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] mod 2=0 then write(a[i],' ');
end.
625Кбайт = 625*1024*8 = 5120000бит
5120000/128000=40 сек
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(('Я изучаю циклы'+NewLine)*15)
end.
<u>Результат</u>
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
<em>телерепортер успел заснять пилотов, занявших второе и третье места, которые поливали друг друга шампанским. Далее в кадр попал мокрый Хилл, поздравляющий пилота, занявшего второе место.</em>Из этого делаем вывод, что Хилл - 3.
<em>Шумахер и Кулхардт пытались втащить на пьедестал почета пилота, занявшего четвертое место.</em>Так как Хилл уже третий, то из перечисленных остался Алези - он 4
<em>В это время Шумахер с четвертым гонщиком пожимали друг другу руки.</em>В это время 2 и 3 места были на пьедистале, следовательно Шумахер - 1.
Ну и остался Кулхардт - он 2