Напишите программу, которая сначала считывает целое положительное число, а затем печатает значение меньшей из его первой и последней цифр. Исходное число
5-9 класс
|
не превышает 30 000. Программа должна напечатать только число, равное значению меньшей из его первой и последней цифр. Если число состоит из одной цифры, то минимальным является значение самой этой цифры.
Примеры работы программы:
Ввод: 3; Вывод:3
Ввод: 2194; Вывод: 2
var a,af,al:integer;
begin
writeln('Введите число');
readln(a);
if a<10 then writeln('Ответ: ',a)
else
if a<=99 then
begin
af:=a div 10;
al:=a mod 10;
if af>al then writeln('Ответ: ',al) else writeln('Ответ: ',af)
end
else
if a<=999 then
begin
af:=a div 100;
al:=a mod 10;
if af>al then writeln('Ответ: ',al) else writeln('Ответ: ',af)
end
else
if a<=9999 then
begin
af:=a div 1000;
al:=a mod 10;
if af>al then writeln('Ответ: ',al) else writeln('Ответ: ',af)
end
else
if a<=30000 then
begin
af:=a div 10000;
al:=a mod 10;
if af>al then writeln('Ответ: ',al) else writeln('Ответ: ',af)
end;
end.
Другие вопросы из категории
( A<B)требуется найти произведение средних разрядов (сотни, десятки), и вычислить сумму этих произведений.
и сосудом с квасом. в банке не лимонад и не вода, а стакан стоит между банкой и сосудом с молоком. где находится квас?
Читайте также
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
его на цифры. Например, при вводе числа 123 программа должна
вывести 1, 2, 3.
2. Напишите программу, которая вводит возраст человека (число, не
превосходящее 120) и выводит на экран этот возраст со словом «»год,
«года» , «лет» . например «21 год», «22 года», «15 лет»
Помогите пожалуйста !!!!
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.
Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000."
Отдал все пункты что есть! Помогите!