Pascal

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

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;

begin

shet1:=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.