PASHA993r

14.08.2020 16:31

Математика

Есть ответ 👍

Составить нормальный алгоритм Маркова A= { a,b,c } . Пусть P имеет нечётную длину. Оставить в P только средний символ.

130

185

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

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

ely4

Математика

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

Для примера возьмем трехзначное число 671. Если его разделить на 100 и отбросить остаток, то получим 6 — первая цифра (число сотен). Поскольку для целочисленного деления существует операция div, то здесь достаточно вычислить 671div 100, что возвратит нам результат 6. Аналогично мы поступали при вычислении первой цифры двузначного числа в программе Integer6, только там нужно было делить на 10. Этот используется и в данной программе.

Код Pascal

var

N: word;

begin

write('N = ');

readln(N); { <-- вводим трехзначное число }

writeln;

{ Находим и выводим первую цифру числа

как целую часть при делени на 100: }

writeln('Первая цифра числа: ', N div 100);

readln

end.

Integer10. Дано трехзначное число. Вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки).

Код Pascal

var

N: word;

begin

write('N = ');

readln(N); { <-- вводим трехзначное число }

writeln;

N := N mod 100; { <== Последние две цифры }

{ Выводим последнюю и среднюю цифры числа: }

writeln('Последняя цифра: ', N mod 10);

writeln('Средняя цифра: ', N div 10);

readln

end.

Integer11. Дано трехзначное число. Найти сумму и произведение его цифр.

Код Pascal

var

N: word; { Трехзначное число }

t1, t2, t3: byte; { Цифры трехзначного числа }

begin

write('Введите трехзначное число: ');

readln(N); { <-- вводим трехзначное число }

writeln;

t3 := N mod 10; { <== третья цифра }

N := N div 10; { <== число созданное первыми двумя цифрами }

t2 := N mod 10; { <== вторая цифра }

t1 := N div 10; { <== первая цифра }

writeln('Сумма цифр: ', t1 + t2 + t3);

writeln('Произведение цифр: ', t1 * t2 * t3);

readln

end.

Integer12. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.

Код Pascal

var

N: word; { Трехзначное число }

t1, t2, t3: byte; { Цифры трехзначного числа }

begin

write('Введите трехзначное число: ');

readln(N); { <-- вводим число }

writeln;

t3 := N mod 10; { <== третья цифра - единицы }

N := N div 10; { <== число созданное первыми двумя цифрами }

t2 := N mod 10; { <== вторая цифра - десятки }

t1 := N div 10; { <== первая цифра - сотни }

{ t3 - сотни, t2 - десятки, t1 - единицы: }

N := 100 * t3 + 10 * t2 + t1; { <== перевернутое число }

writeln('Прочитанное в обратном порядке число: ', N);

readln

end.

Второй вариант не предусматривает дополнительных переменных для хранения цифр числа:

Код Pascal

var

N: word; { Трехзначное число }

begin

write('Введите трехзначное число: ');

readln(N); { <-- вводим число }

writeln;

{ Вычисляем три цифры числа:

1) N div 100 - первая цифра;

2) N div 10 mod 10 - вторая цифра;

3) N mod 10 - третья цифра.

Составляем число с переставленными цифрами справа налево: }

N := 100 * (N mod 10) + 10 * (N div 10 mod 10) + N div 100;

writeln('Прочитанное в обратном порядке число: ', N);

readln

end.

Пошаговое объяснение:

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

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

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

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

Популярно: Математика

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

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

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

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

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

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