Вопрос по информатике:
Pascal
1. Дано натурально число N.Получить его натуральные делители.2.Определить, сколько чисел натурального ряда необходимо сложить, чтобы их сумма превысила число 119.3.Определить число,получаемое выписыванием в обратном порядке цифр заданного числа.(например,было 123,стало 321)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.05.2016 21:18
- Информатика
- remove_red_eye 9727
- thumb_up 5
Ответы и объяснения 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.
- 19.05.2016 00:30
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.