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.