ROMAGTTV900

23.09.2021 19:56

Информатика

Есть ответ 👍

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

164

275

Посмотреть ответы 2

Ответы на вопрос:

Linanamik

Информатика

4,6(97 оценок)

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.

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

TPROfesorT

Информатика

4,5(13 оценок)

Объяснение:

Dec - Bin - Oct - Hex

2104 - 1000 0011 1000 - 4 070 - 838

139 - 1000 1011 - 213 - 8B

175 - 1010 1111 - 257 - AF

799 - 00011 0001 1111 - 1 437 - 31F

2. Bin - Dec

10110101 - 181

10010011 - 147

11110011 - 243

3. Bin - Hex

10110101 - B5

10010011 - 93

11110011 - F3

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.