1.Ипполит задумал трёхзначное число, которое при разделении на 15 даёт в
1.Ипполит задумал трёхзначное число, которое при разделеньи на 15 даёт в
остатке 11, а при дроблении на 11 даёт в остатке 9. Напишите программку,
которая обретает все такие числа. В паскале.
2.С клавиатуры вводится натуральное число N. Программка обязана отыскать
факториал этого числа (обозначается как N!) творение всех
естественных чисел от 1 до N. К примеру, 5! = 1 2 3 4 5 = 120.
3.
Естественное число величается числом Армстронга, если сумма цифр
числа, возведенных в N-ную ступень (где N количество цифр в числе)
одинакова самому числу. К примеру, 153 = 1^3 + 5^3 + 3^3.
Найдите все трёхзначные Армстронга.
Реши задачку пожалуйста без ошибок.
1)
Var i:integer;
Begin
for i := 100 to 999 do
if (i mod 15 = 11) and (i mod 11 = 9)
then writeln(i);
End.
2)
Var i,n,s:integer;
Begin
read (n);
s := 1;
for i := 1 to n do
s := s * i;
write(s);
End.
3)
Var i,j,k:integer;
Begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
End.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.