Решите пожалуйста!
1. С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.
2. Напечатать все делители заданного числа.
Это циклы,ршите в паскале!
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
