Question

Помогите решить 'цикл со счётчиком' по икт . 3 задачи
1. среди двухзначных чисел найти сумму чисел, кратных 5. Сами числа и сумму вывести на экран.
2.Среди трехзначных чисел найти числа, в записи которых используется только одна цифра( например, 111), вывести на экран, подсчитать количество.
3. С клавиатуры вводится число, найти и вывести на экран все его делители. Также найти количество делителей, вывести на экран.

Answer 1

1 задача 

uses crt;
var
sum,i:integer;
begin
clrscr;
sum:=0;
for i:=10 to 99 do
begin
if i mod 5=0 then
sum:=sum+i;
end;
writeln('Сумма чисел кратных пяти=',sum);
readln;
end.
по моему как то так