Pascal 1. дано натурально число n.получить его натуральные делители.2.определить, сколько чисел натурального ряда необходимо сложить, чтобы их сумма превысила число 119.3.определить число,получаемое выписыванием в обратном порядке цифр заданного числа.(например,было 123,стало 321)

264

293

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

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

Rustamka45

Информатика

4,6(4 оценок)

1. var i,n: integer; begin readln(n); for i: =1 to n do begin if(n mod i = 0) then writeln(i); end; end.2.var shet1,count,sum: integer; beginshet1: =2; sum: =2; count: =1; while sum< =119 do begin count: =count+1; shet1: =shet1+1; sum: =sum+shet1; end; write('count = ',count); end.3.var a: integer; begin read(a); while(a < > 0) do begin write(a mod 10); a : = a div 10; end; end.