Предмет: Информатика,
автор: annawp74
составьте программу нахождения количества делителей числа n (значение n вводится с клавиатуры)
Ответы
Автор ответа:
0
uses crt;
Var x, y, k:integer;
procedure delit;
begin k:=0;
writeln('Делители числа ', x, ':');
for y:=1 to x do if x mod y=0 then
begin
write( y, ' ');
k:=k+1
end;
writeln('Количество делителей числа ', x, ' равно ', k);
end;
begin clrscr;
writeln ('Введите число: ');
readln (x);
delit;
readln;
end.
Var x, y, k:integer;
procedure delit;
begin k:=0;
writeln('Делители числа ', x, ':');
for y:=1 to x do if x mod y=0 then
begin
write( y, ' ');
k:=k+1
end;
writeln('Количество делителей числа ', x, ' равно ', k);
end;
begin clrscr;
writeln ('Введите число: ');
readln (x);
delit;
readln;
end.
Интересные вопросы
Предмет: Українська мова,
автор: krasiladima
Предмет: Математика,
автор: inzurysbaj
Предмет: Физика,
автор: katiatop5694694
Предмет: География,
автор: DemaAnna
Предмет: Литература,
автор: bogdan123qwety