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