Задать вопрос
23 февраля, 17:54

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

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

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

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

+5
Ответы (1)
  1. Г
    23 февраля, 18:25
    0
    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.

    по моему как то так
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите решить 'цикл со счётчиком' по икт. 3 задачи 1. среди двухзначных чисел найти сумму чисел, кратных 5. Сами числа и сумму вывести на ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Войти
Задать вопрос