Дано натуральное число N. Определить наименьшую и наибольшую цифры данного числа (Pascal ABC)

Question

Информатика

Вениамин

18 ноября, 16:46

Дано натуральное число N. Определить наименьшую и наибольшую цифры данного числа (Pascal ABC)

+1

Ответы (1)

Знаете ответ на вопрос?

Иулия · Answer 1

Var

s:string;

max, min:char;

begin

write ('Введите число: ') ; readln (s) ;

max:=s[1]; min:=s[1];

for var i:=2 to s. Length do begin

if min>s[i] then min:=s[i];

if max
end;

writeln ('max = ', max) ;

writeln ('min = ', min) ;

end.