Question

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

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

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

Answer 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.