Впаскале 1. есть ли среди трёх чисел пара одинаковых чисел? 2. дано натуральное число m . имеются ли в этом числе цифры a и b, вводимые с клавиатуры? 3.ряд чисел фибоначчи 1, 1, 2,3,5, каждое следующее число равно сумме двух предыдущих. найти n-ое число ряда.

275

417

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

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

Вишня007

Информатика

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

// pascalabc.net 3.0, сборка 1073 var a,b,c: integer; begin write('введи a,b,c: '); read(a,b,c); if (a=b) or (a=c) or (b=c) then writeln('есть пара одинаковых') else writeln('все числа различные') end. тестовое решение: введи a,b,c: 6 3 -12 все числа различные введи a,b,c: 5 -4 5 есть пара одинаковых // pascalabc.net 3.0, сборка 1073 var n: string; a,b: char; begin write('введи натуральное число n: '); readln(n); write('введи подряд пару разыскиваемых цифр: '); read(a,b); if pos(a,n)> 0 then writeln('в числе есть цифра '+a) else writeln('в числе цифры '+a+' нет'); if pos(b,n)> 0 then writeln('в числе есть цифра '+b) else writeln('в числе цифры '+b+' нет') end. тестовое решение: введи натуральное число n: 3141592653589793 введи подряд пару разыскиваемых цифр: 47 в числе есть цифра 4 в числе есть цифра 7 // pascalabc.net 3.0, сборка 1073 var i,n: integer; fiba,fibb,fib: longint; begin write('введи натуральное число (1-46): '); read(n); if n< 3 then writeln('число фибоначчи равно 1') else begin fiba: =1; fibb: =fiba; for i: =3 to n do begin fib: =fiba+fibb; fiba: =fibb; fibb: =fib end; writeln('число фибоначчи равно ',fib) end end. тестовое решение: введи натуральное число (1-46): 13 число фибоначчи равно 233

mashenkalarchenko

Информатика

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

Вообщем непонятно что делает. убирает последние три цифры у числа, затем эти самые три цифры умножает на переменную "b", и так повторяется, пока это число не станет меньше 1000. ответ: 1011. не парься

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

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

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

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

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

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

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

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

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

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