Задача
С клавиатуры вводится последовательность натуральных чисел, оканчивающихся числом 0. Количество чисел в последовательности неизвестно.
Программа должна вывести на экран четные числа из этой последовательности, которые не меньше 50.
Помогите пожалуйста :(
Koljisto:
Какой язык?
Ответы
Ответ дал:
1
Begin
var a := new Stack<integer>;
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.
Ответ дал:
1
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).
Where(p -> p.IsEven and (p >= 50)).Println
end.
Приложения:
![](https://st.uroker.com/files/57f/57f5175da60ea5f53ddad4927edaadf7.jpg)
Вас заинтересует
2 месяца назад
2 месяца назад
4 месяца назад
4 месяца назад
1 год назад