Предмет: Информатика,
автор: Аноним
РЕБЯТ, ПОМОГИТЕ ПОЖАЛУЙСТА ИНФОРМАТИКА 8 КЛАСС!!! НУЖНО ОЧЕНЬ ОЧЕНЬ СРОЧНО!!! СЕГОДНЯ В 20-00 НУЖНО СДАТЬ!!!
Приложения:
Ответы
Автор ответа:
0
Ответ:
var s,k:integer;
begin
readln(s);
k:=s;
repeat
if s mod k = 0 then
writeln(k);
k := k-1;
until k < 1
end.
Интересные вопросы
Предмет: Русский язык,
автор: tatianacher
Предмет: Русский язык,
автор: Artem1111112
Предмет: Другие предметы,
автор: Жека20001
Предмет: Математика,
автор: udalovakvashina