В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
murat121221
murat121221
22.05.2022 17:38 •  Информатика

40 паскаль программа на нахождение чисел используя процедуры 1) счастливые числа 2)числа армстронга 3)числа каталана 4)числа линдона

Показать ответ
Ответ:
досметова
досметова
09.10.2020 05:23

uses crt;

var i,j,p,a,b,c,d,a1,b1,c1,d1:integer;

begin

clrscr;

writeln('Числа Армстронга на интервале [100..9999]');

for i:=100 to 9999 do

begin

if(i<1000) then p:=3 else p:=4;

a:=i div 1000;

b:=i div 100 mod 10;

c:=i div 10 mod 10;

d:=i mod 10;

a1:=1;b1:=1;c1:=1;d1:=1;

for j:=1 to p do

begin

a1:=a1*a;

b1:=b1*b;

c1:=c1*c;

d1:=d1*d;

end;

if a1+b1+c1+d1=i then write(i,' ');

end;

readln

end.

наверно правильно

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота