Question

Определить кол-во чисел, кратных 5, трехзначных и сумму оканчивающих 9.
(ПАСКАЛЬ)

Answer 1

Program F1tsku;
var x:integer;
begin
writeln ('Введите число');
readln(x);
if (x mod 10=9) and (x mod 5=0) then
writeln('Да') else writeln('Нет');
end.

Answer 2

так-то все правильно, но там нужно сумму чисел оканчивающихся на 9, и с командами sum и count