Найти все делители натурального числа n. решить через процедуру и функцию в паскале,

263

441

Посмотреть ответы 2

Ответы на вопрос:

Чай24

Информатика

4,8(94 оценок)

Program pr; uses crt; var i,n: integer; procedure del(a: integer); var i: integer; begin i: =1; while (a div i< > 0) do begin if (a mod i=0) then writeln(i); i: =i+1; end; end; begin writeln('vvedite chislo'); readln(n); del(n); readln; end.

MaxPlayTheme

Информатика

4,7(32 оценок)

Var n,m,head,eye: integer; -объявили переменные целого типа begin - начала программу writeln('сколько лет вашему дракону? '); - вывели фразу 'сколько лет вашему дракону? ' на экран readln(n); - считали введенную переменную n и перевели каретку на новую строку head: =1; - присвоили значение eye: =2; - присвоили значение for m: =2 to n do - перебираем m от 2 до n if m< =100 then head: =head + 3 -считаем головы else head: =head + 2; -счиаем головы eye: =head*2; - считаем глаза writeln('голов',head,'глаз',eye); -выводи результат end.