Question

Дано целое положительное число А, значение которого вводится с клавиатуры. Напишите программу, позволяющую:
- найти минимальную цифру среди последних трех цифр числа
- вывести на экран найденную цифру
- если цифр меньше трех, то выдать сообщение < невозможно выполнить заданную операцию>. программу выполнить в pascal abc. спасибо!

Answer 1

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.