Pascal 1. Дано натурально число N.Получить его натуральные делители.2.Определить, сколько чисел натурального ряда необходимо сложить, чтобы их сумма превысила число 119.3.Определить число,получаемое выписыванием в обратном поря...
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.
Не нашли ответ?
Похожие вопросы