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

Question

Информатика

Никитична

7 ноября, 19:57

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

+2

Ответы (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.