С клавиатуры вводится последовательность натуральных чисел, оканчивающихся числом 0. Количество чисел в последовательности неизвестно. Программа должна вывести на экран четные числа из этой последовательности, которые не меньше 50.
Ответы на вопрос
Ответил BobbyFresnel
0
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).
Where(p -> p.IsEven and (p >=50)).Println
end.
Приложения:

Ответил fedrfedr
0
Ответ:
var
a: array of Integer;
n, i: Integer;
begin
repeat
ReadLn (n);
if n <> 0 then begin
SetLength (a, High (a) + 2);
a [High (a)] := n;
end;
until n = 0;
WriteLn;
for i := Low (a) to High (a) do
if (a[i] >= 50) and (a[i] mod 2 = 0) then
Write (a [i], ' ');
ReadLn;
end.
Новые вопросы
Математика,
1 год назад
Немецкий язык,
1 год назад
Русский язык,
2 года назад
Українська мова,
2 года назад
Биология,
7 лет назад
Математика,
7 лет назад