FlUSHWER
19.03.2023 01:14

Хотя бы одну решить. 1. найдите сумму чисел из промежутка от а до в, кратных 4 (а и в вводятся с клавиатуры) 2. найти произведение двухзначных чисел, сумма цифр которых равна 10. 3. определите количество двухзначных чисел, сумма цифр которых кратна 5.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Groza11
07.10.2020 20:55
1)
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(ReadInteger('A='),ReadInteger('B=')).Where(x-> x mod 4=0).Sum());
end.
2)
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(10,99).Where(x->(x mod 10)+(x div 10)=10).Aggregate(Real(1),(x,y)->x*y));
end.
3)
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(10,99).Where(x->((x mod 10)+(x div 10)) mod 5=0).Count());
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота