Написать программу решения : дано натуральное число n и цифра a. написать программу, определяющую: а) количество цифр в числе; b) равна ли первая цифра числа последней цифре; с) входит ли цифра a в запись этого числа.

293

421

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

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

dmitry113114

Информатика

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

// pascalabc.net 3.0, сборка 1088 begin var n: =readlnstring('введите число: '); n: =n.where(x-> x in ['0'..'9']).joinintostring(''); writeln('принятое число: ',n); var a: =readlnchar('введите искомую цифру: '); writeln('количество цифр в числе равно ',n.length); if n[1]=n[n.length] then writeln('первая цифра равна последней') else writeln('первая цифра не равна последней'); if pos(a,n)> 0 then writeln('цифра ',a,' входит в число') else writeln('цифра ',a,' не входит в число') end. тестовое решение: введите число: тут спрятано 456. по частям 764 наше 03число принятое число: 45676403 введите искомую цифру: 0 количество цифр в числе равно 8 первая цифра не равна последней цифра 0 входит в число "школьный вариант" // pascalabc.net 3.0, сборка 1088 var n: longint; i,k: integer; sn: string; a: char; begin write('введите число: '); readln(n); str(n,sn); write('введите искомую цифру: '); readln(a); k: =length(sn); writeln('количество цифр в числе равно ',k); if sn[1]=sn[k] then writeln('первая цифра равна последней') else writeln('первая цифра не равна последней'); if pos(a,sn)> 0 then writeln('цифра ',a,' входит в число') else writeln('цифра ',a,' не входит в число') end. тестовое решение: введите число: 3476573 введите искомую цифру: 7 количество цифр в числе равно 7 первая цифра равна последней цифра 7 входит в число

vipsab333

Информатика

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

Var s, a, t: integer; begins : = 0; randomize; for t : = 1 to 10 dobegina : = random(41) - 20; if (a mod 3 = 0) and (a mod 2 = 1) then s : = s + a; end; writeln(s); end.

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

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

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

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

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

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

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

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

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

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