Question

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

Answer 1

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.