1.Ипполит задумал трёхзначное число, которое при делении ** 15 даёт в остатке 11, а при...

0 голосов
477 просмотров

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.Найдите все трёхзначные Армстронга. Реши задачу пожалуйста без ошибок. ​


Информатика (26 баллов) | 477 просмотров
Дан 1 ответ
0 голосов

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.

(106 баллов)
0

а вот она будет работать на компьютере

0

Проверял, все работают

0

да

0

тогда большое спасибо. а то учитель всегда когда стараюсь сделать дз он 3 ставит