//Pascal ABC.NET v3.1 сборка 1172
//Продвинутый вариант
begin
writeln(range(100,999).Where(x -> x mod 7=0).Where(x -> x mod 9=0).Where(x -> x mod 5=0).Sum);
end.
//"Школьный" вариант
Var
i,s:integer;
begin
for i:=100 to 999 do
if (i mod 5=0) and (i mod 7=0) and (i mod 9=0) then s:=s+i;
writeln(s);
end.
Вывод:
1890
Вот, если не то, тогда сори.
Var a,b,c, d: integer;
begin readln(a,b,c); d := a*a + b*b + c*c; writeln(d)end.
Такие записи есть: 7, 8
Запись на <14:00 – 1, 2, 3, 4, 5, 6
Запись на > «Пятница» – 6, 7, 8
Ответ: 1) 7, 8
________________
БУДУ БЛАГОДАРЕН ЗА ВЫБОР 'КАК ЛУЧШИЙ'