Помогите хотя бы одну решить. 1. Найдите сумму чисел из промежутка от А до В, кратных 4...

0 голосов
30 просмотров

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


Информатика (86 баллов) | 30 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(149k баллов)