Задать вопрос Регистрация
Помочь другим

  • Решите пожалуйста!

    1. С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.
    2. Напечатать все делители заданного числа.

    Это циклы,ршите в паскале!

Ответы 1

  • var

      a, n, s, i: integer;  //n - количество, s - сумма, a - вводимое число

     

    begin

      a:= 1;

      while a mod 5 <> 0 do

      begin

        writeln('Введите целое число');

        readln(a);

        if a > 10 then

        begin

          inc(n);  //Увеличиваем счетчик на 1

          s:= s + a;

        end;

      end;

      writeln('Количество чисел, больших 10:  ', n, ', сумма чисел, больших 10:  ', s);

      write('Делители числа ', a, ':  ');

      for i:= 2 to a do

        if a mod i = 0 then write(i, '  ');

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years