Предмет: Информатика,
автор: kmansurova49
Кто в паскале разбирается помогите пожалуйста !!
1) Найти сколько чисел, введенных с клавиатуры пользователем оканчиваются на 3 (количество чисел, которые ввел пользователь известно)
2) Найти произведение чисел, введенных с клавиатуры, которые кратны 3 и оканчиваются на 9 (количество чисел, которые ввел пользователь известно)
3) Камера наблюдения регистрирует режим скорости проезжающих мимо нее машин. Найти максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 40 км в час, выведите "ДА", иначе выведите "НЕТ".
Ответы
Автор ответа:
0
Задание 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.
Примеры работ:
Приложения:
Интересные вопросы
Предмет: Русский язык,
автор: easmol
Предмет: Русский язык,
автор: angyraa
Предмет: Английский язык,
автор: pinupalina
Предмет: Математика,
автор: yuliamucha
Предмет: Алгебра,
автор: samarginav