Question

на Pascal написать программу, которая из последовательности чисел определит кол-во чисел больше 9 и кратных 5. последнее число - 0. спасибо заранее!

Answer 1

Ответ:

PascalABC.NET

begin

 var N := ReadInteger('Сколько чисел? ');

 var A := ReadArrInteger('Вводи: ', N);

 A.Where(x -> (x > 9) and (x mod 5 = 0)).Count.Println;

end.

Answer 2

A.Count(x -> (x > 9) and (x mod 5 = 0)).Println; - проще

Answer 3

В итоге - это все равно PascalABС.NET, а не Pascal ABC, который разработчики не поддерживают уже 12-й год. Где ваша школа только взяла этот Pascal ABC ?

Answer 4

чего ты удивляешься? Россия ведь. у нас пк оборудованы 2гб озу например. просто я сейчас загружен работой и если кто-нибудь напишет эту программу, то мне удастся поспать хотя бы 4 часа

Answer 5

Странно. Я бы еще понял, если это было стойбище оленеводов, а информатика привозили бы на собаках со старым ноутом, одним на весб школьный чум.