Предмет: Информатика,
автор: MrSMORC
Написать программу:
Попугай Рома вытягивает каждый из семи дней случайным образом число от 1 до 10. Сколько чётных и сколько нечётных чисел он вытянул за неделю.
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,1,10); a.Println;
var kOdd:=a.Where(t->t.IsOdd).Count;
Writeln(kOdd,' нечетных, ',7-kOdd,' четных')
end.
Пример
7 2 3 4 2 5 3
4 нечетных, 3 четных
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,1,10); a.Println;
var kOdd:=a.Where(t->t.IsOdd).Count;
Writeln(kOdd,' нечетных, ',7-kOdd,' четных')
end.
Пример
7 2 3 4 2 5 3
4 нечетных, 3 четных
Похожие вопросы
Предмет: Английский язык,
автор: 20083591
Предмет: Русский язык,
автор: baukaaldiar
Предмет: Математика,
автор: lina04615
Предмет: Алгебра,
автор: dany200201
Предмет: Математика,
автор: YTlandYT