Как сделать трехзначное число в паскале

Добавил пользователь Валентин П.
Обновлено: 10.09.2024

program zz1;
var i, s, k, p:integer; // задаем переменные целого типа
begin
write(' введите трехзначное число'); // вводим с клавиатуры число
read(i);
p:=i mod 10; // находим последнюю цифру числа
k:=i div 100; // находим первую цифру числа
s:=(i mod 100) div 10; // находим среднюю цифру числа
if (p > k) and (p > s) then writeln(' максимальная последняя цифра = ', p); // выводим ответ
if (k > p) and (k > s) then writeln(' максимальная первая цифра = ', k);
if (s > k) and (s > p) then writeln(' максимальная средняя цифра = ', s);
end.

Как написать хороший ответ? Как написать хороший ответ?

Написать правильный и достоверный ответ;
Отвечать подробно и ясно, чтобы ответ принес наибольшую пользу;
Писать грамотно, поскольку ответы без грамматических, орфографических и пунктуационных ошибок лучше воспринимаются.

Мореплаватель — имя существительное, употребляется в мужском роде. К нему может быть несколько синонимов.
1. Моряк. Старый моряк смотрел вдаль, думая о предстоящем опасном путешествии;
2. Аргонавт. На аргонавте были старые потертые штаны, а его рубашка пропиталась запахом моря и соли;
3. Мореход. Опытный мореход знал, что на этом месте погибло уже много кораблей, ведь под водой скрывались острые скалы;
4. Морской волк. Старый морской волк был рад, ведь ему предстояло отчалить в долгое плавание.

В Integer основной упор будет сделан на div и mod.

Integer1. Дано расстояние L в сантиметрах. Используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см).

Integer2. Дана масса M в килограммах. Используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг).

Integer3°. Дан размер файла в байтах. Используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта).

Integer4. Даны целые положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Используя операцию деления нацело, найти количество отрезков B, размещенных на отрезке A.

Integer5. Даны целые положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Используя операцию взятия остатка от деления нацело, найти длину незанятой части отрезка A.

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

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

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

Integer8°. Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа.

Integer9. Дано трехзначное число. Используя одну операцию деления нацело, вывести первую цифру данного числа (сотни).

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

Согласитесь, что это были не очень сложные задачи, поэтому никаких объяснений и блок-схем не требуется. Если же у вас возникли какие-либо проблемы, то не стесняйтесь и пишите все свои вопросы в комментарии под этой статьей. Ну, а если вам просто понравилась эта статья, то обязательно кликайте по кнопочкам, которые расположены ниже. ?

Над целыми числами В PascalABC можно проводить не только простые арифметические операции (сложение, вычитание, деление и умножение). Есть еще две: деление нацело (обозначается div) и деление с остатком (mod). Рассмотрим их применение на примерах.

Деление нацело ( div )

Целочисленное деление — это деление, при котором одно целое число делится на другое целое число. Результатом является целая часть их частного.

Результатом операции является целое число, полученное в результате деления, а точнее — целая часть результата деления.

Остаток от деления ( mod )

Деление с остатком — это деление одного числа на другое, при котором остаток не равен нулю. 16: 7 = 2 (ост. 2) 23: 8 = 2 (ост. 7)

Результатом операции является целое число — разность делимого числа и ближайшего к нему меньшего или равного целого числа, которое делится нацело на делитель.

Важно! Операции div и mod применяются только к целым числам.

Операцию mod используют для определения кратности чисел, то есть делимости на какое-нибудь число нацело. Например, что числа 2, 6, 12, 24 кратны двум (чётные числа). Получается, что все числа не кратные двум — нечётные. Или числа 5,10,15,20 кратны 5.

Рассмотрим несколько примеров использования данных операций в программировании.

Задание 1. Дан размер файла в байтах. Используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта).

Решение:

Задание 2. Дано трехзначное число k. Найдите сумму его цифр S.

Решение:

Стандартные функции PascalABC

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

Обозначение функции	Тип результата	Описание функции
Abs(x)	совпадает с типом параметра	Модуль в паскале определяется через функцию Abs(x). Она возвращает абсолютное значение (модуль) x. Пример, если х=-6, то Abs(x)=6.
Sqr(x)	совпадает с типом параметра	Вторая степень в паскале может быть вычислена через функцию Sqr(x). Она возвращает квадрат числа x. Пример, если х=5, то Sqr(5)=25
Sqrt(x)	Квадратный корень в паскале извлекается с помощью функции Sqrt(x). Она возвращает квадратный корень из числа x. Например, если х=49, то Sqrt(49)=7. Аргумент функции должен быть положительным числом.
Power(x,y)	real	Произвольную степень в паскале вычисляют с помощью Power(x,y). Она возвращает x в степени y. Например, если основание х=2, а степень у=5, то Power(2,5)=32. В PascalABC степень можно вычислить следующей записью: 2**5 (две звездочки — это возведение в степень)
Int(x)	real	возвращает целую часть х
Random(x)	integer	возвращает случайное целое в диапазоне от 0 до x-1
Random	real	возвращает случайное вещественное в диапазоне [0..1)
Frac(x)	real	возвращает дробную часть х
Trunc(x)	x-real, integer	возвращает целую часть х

Подробный и более полный список функций можно получить в справочной системе среды программирования PascalABC в меню Помощь — Содержание — Справочник по языку — Стандартные процедуры и функции

Задание 3. Вычислите значение выражения y=5x 7 -4x 2 +3

Составить программу в Pascal, которая вводит трехзначное число и выводит число-перевертыш (Пример 123->321)

Ответ оставил Гуру

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

a2:=(a div 10) mod 10;

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Читайте также: