Предмет: Информатика,
автор: яниколя1
найти max из (a,n,x,m )чисел
Ответы
Автор ответа:
0
var a,n,x,m,max: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(n);
writeln('Введите 3 число');
readln(x);
writeln('Введите 4 число');
readln(m);
max:=a;
if max < n then max:=n;
if max < x then max:=x;
if max < m then max:=m;
writeln(max);
end.
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(n);
writeln('Введите 3 число');
readln(x);
writeln('Введите 4 число');
readln(m);
max:=a;
if max < n then max:=n;
if max < x then max:=x;
if max < m then max:=m;
writeln(max);
end.
Aillianna:
Если нет, то напишите что конкретно не так
Интересные вопросы
Предмет: История,
автор: saitamma
Предмет: Химия,
автор: gookokeu
Предмет: Математика,
автор: f88523765
Предмет: Геометрия,
автор: kit9kit123