Дано целое положительное число А, значение которого вводится с клавиатуры. Напишите программу, позволяющую:
5-9 класс
|
- найти минимальную цифру среди последних трех цифр числа
- вывести на экран найденную цифру
- если цифр меньше трех, то выдать сообщение < невозможно выполнить заданную операцию>. программу выполнить в pascal abc. спасибо!
uses crt;
var x,y,i,n,s,min:longint;
m:array[1..100] longint;
begin
clrscr;
readln(x);
i:=0;
while x<>0 do
begin
i:=i+1;
m[i]:=x mod 10;
x:=x div 10;
end;
min:=m[1];
if i<3 then writeln('Error') else
begin
for y:=1 to 3 do
if m[y]<=min then min:=m[y];
writeln(min);
end;
readln();
end.
Другие вопросы из категории
помогите мне прошу вас
3. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех однозначных чисел, кратных 3.
Читайте также
не превышает 30 000. Программа должна напечатать только число, равное значению меньшей из его первой и последней цифр. Если число состоит из одной цифры, то минимальным является значение самой этой цифры.
Примеры работы программы:
Ввод: 3; Вывод:3
Ввод: 2194; Вывод: 2
числа х,то получилось число n . Найти число х ( значение n вводится с клавиатуры 1
образовавшемуся двухзначному числу справа приписали вторую цифру числа x, то получилось число n. По заданному n найти число x
(значение n вводится с клавиатуры).