Кто в паскале разбирается Найти сколько чисел, введенных - вопрос №13121791 от Всезнаюшка15 30.09.2020 08:09

Question

Информатика: Кто в паскале разбирается Найти сколько чисел, введенных с клавиатуры пользователем оканчиваются на 3 (количество чисел, которые ввел пользователь известно) 2) Найти произведение чисел, введенных с клавиатуры, которые кратны 3 и оканчиваются на 9 (количество чисел, которые ввел пользователь известно) 3) Камера наблюдения регистрирует режим скорости проезжающих мимо нее машин. Найти максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 40 км в час,

Всезнаюшка15 · Answer

Задание 1:begin var a := ReadArrInteger(ReadInteger( N: )); Println( ответ: ,a.Count(x- x mod 10 = 3)); end.Задание 2:begin var a := ReadArrInteger(ReadInteger( N: )); Println( ответ: ,a.Where(x- (x mod 3 = 0) and (x mod 10 = 9)).Product); end.Задание 3:begin var a := ReadArrInteger(ReadInteger( N: )); Println( Максимальная скорость: , a.Max); Println( Была ли меньше 40км/ч: , a.Min 40 ? Да : Нет ); end.Примеры работ:...