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