DarinaKachilova0910

22.05.2022 10:32

Информатика

Есть ответ 👍

4. первоклассные числа ограничения: время - 200мс, память - 256мб если взять натуральное число и найти сумму квадратов его цифр, затем сумму квадратов цифр результата и так далее, то через несколько шагов для некоторых из чисел получится число 1. такие числа будем называть первоклассными. например, первоклассным будет число 19, так как 1^2+9^2=82, 8^2+2^2=68, 6^2+8^2=100, 1^2+0^2+0^2=1. числа 2 или 5 первоклассными не являются. напишите программу, которая находит количество первоклассных чисел среди чисел в диапазоне от а до в включительно. первая строка ввода содержит два целых чисел а, в. вывести одно целое число - количество первоклассных чисел среди чисел в диапазоне от а до в. пример ввода1. пример вывода1 5. 4 4 5 6 3 7. пример ввода 2. пример вывода 2 3 9 5 6. 1

278

335

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

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

vip360842

Информатика

4,8(35 оценок)

Pascalabc.net 3.4.2, сборка 1847 от 28.10.2018 внимание! если программа не работает, обновите версию!

function суммаквадратовцифр(число: integer): integer;

begin

result : = 0;

while число > 0 do

begin

result += sqr(число mod 10);

число : = число div 10

end

end;

function числопервоклассное(число: integer): boolean;

begin

число : = abs(число); // защита от злобных буратинок

var l: =new sortedset< integer> ;

l.add(число);

repeat

case число of

0, 2, 3:

begin

result : = false;

exit

end;

begin

result : = true;

exit

end;

else

begin

число : = суммаквадратовцифр(число);

if l.contains(число) then

begin

result: =false;

exit

end

else l.add(число)

end

until false // бесконечный цикл

end;

begin

var (нижняяграница, верхняяграница) : = readinteger2;

var количество : = 0;

for var очередноечисло : = нижняяграница to верхняяграница do

if числопервоклассное(очередноечисло) then inc(количество);

количество.println

end.

1 100 20

polinalopareva1

Информатика

4,4(56 оценок)

думаю так.

var i,n: integer; p: real; begincls; write('write n '); readln(n); for i: =2 to n dobeginp: =p+(1-(1/sqr(; end; writeln(p); readln; end.

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

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

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

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

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

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

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

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

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

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