С клавиатуры вводится целое число, содержащие не более 7 цифр. Определить максимальную цифру в этом числе.

Программа Паскаль. Цикл с пред условием

Question

Информатика

Созонт

3 марта, 11:36

С клавиатуры вводится целое число, содержащие не более 7 цифр. Определить максимальную цифру в этом числе.

Программа Паскаль. Цикл с пред условием

+3

Ответы (1)

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

Пануля · Answer 1

Program maxx;

var max, n, k, i:integer;

begin

writeln ('введите кол-во чисел') ;

readln (k) ;

max:=0;

for i:=1 to k do

begin

readln (n) ;

if n>max then max:=n;

end;

writeln (max) ;

end.

С клавиатуры вводится целое число, содержащие не более 7 цифр. Определить максимальную цифру в этом числе.Программа Паскаль. Цикл с пред условием

С клавиатуры вводится целое число, содержащие не более 7 цифр. Определить максимальную цифру в этом числе.

Программа Паскаль. Цикл с пред условием