помогите пожалуйста решить вопрос
Приложения:
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToIntegers;
var n1:=a.Where(t->t.IsOdd).Count;
var n2:=a.Where(t->t.IsEven).Count;
if n1>n2 Then Writeln('Нечетных больше')
else
if n2>n1 then Writeln('Четных больше')
else Writeln('Четных и нечетных поровну')
end.
Пример
23 18 39 -15 27 48 -3 8
Нечетных больше
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToIntegers;
var n1:=a.Where(t->t.IsOdd).Count;
var n2:=a.Where(t->t.IsEven).Count;
if n1>n2 Then Writeln('Нечетных больше')
else
if n2>n1 then Writeln('Четных больше')
else Writeln('Четных и нечетных поровну')
end.
Пример
23 18 39 -15 27 48 -3 8
Нечетных больше
Ответил andreivich43
0
Простите но мне нужно на С
Ответил Аноним
0
Простите, а где это написано?
Новые вопросы