с клавиатуры вводится последовательность натуральных чисел, оканчивающихся числом 0. количество чисел в последовательности неизвестно.
программа должна вывести на экран четные числа из этой последовательности, которые не меньше 50.

: (

271

311

Посмотреть ответы 3

Ответы на вопрос:

ismailtagiev20

Информатика

4,5(30 оценок)

begin

var a : = new stack;

var input: integer;

read(input);

while(input< > 0) do

begin

if (input mod 2 = 0) and (input > 50) then

a.push(input);

read(input);

end;

a.println;

end.

оаилпаидшп

Информатика

4,7(78 оценок)

pascalabc.net

begin

readseqintegerwhile(p -> p < > 0).

where(p -> p.iseven and (p > =

end.

инкар03

Информатика

4,4(1 оценок)

// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n='),10,99); a.println; var b: =a.where((x,i)-> i.iseven).interleave(a.where((x,i)-> i.isodd).sorted); if a.count< > b.count then b: =b+a.last; b.println end. пример n= 11 89 78 46 90 11 45 56 94 41 37 77 89 37 46 45 11 78 56 90 41 94 77