Решить 'цикл со счётчиком' по икт . 3 1. среди двухзначных чисел найти сумму чисел, кратных 5. сами числа и сумму вывести на экран. 2.среди трехзначных чисел найти числа, в записи которых используется только одна цифра( например, 111), вывести на экран, подсчитать количество. 3. с клавиатуры вводится число, найти и вывести на экран все его делители. также найти количество делителей, вывести на экран.
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.
по моему как то так