Pascal 1. Дано натурально число N.Получить его натуральные делители.2.Определить, сколько...

Question

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

Comments

хех , а третью задачу можно через строки решить?

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 <br>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.