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

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

Задать свой вопрос
Кирюха Кудрявкин
хех , а третью задачку можно через строки решить?
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 sumlt;=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 lt;gt; 0)
do  
begin   
write(a mod 10);   
a := a div 10; 
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт