Помогите решить 'цикл со счётчиком' по икт. 3 задачи

1. среди двухзначных чисел найти сумму чисел, кратных 5. Сами числа и сумму вывести на экран.

2. Среди трехзначных чисел найти числа, в записи которых используется только одна цифра (например, 111), вывести на экран, подсчитать количество.

3. С клавиатуры вводится число, найти и вывести на экран все его делители. Также найти количество делителей, вывести на экран.

Question

Информатика

Бориска

3 ноября, 13:47

Помогите решить 'цикл со счётчиком' по икт. 3 задачи

1. среди двухзначных чисел найти сумму чисел, кратных 5. Сами числа и сумму вывести на экран.

2. Среди трехзначных чисел найти числа, в записи которых используется только одна цифра (например, 111), вывести на экран, подсчитать количество.

3. С клавиатуры вводится число, найти и вывести на экран все его делители. Также найти количество делителей, вывести на экран.

+3

Ответы (1)

Знаете ответ?

Алевтина · 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.

по моему как то так