Даны переменные A, B, C, D найти MAX и MIN надо текст для паскаля

Question

Информатика

Кириана

20 октября, 18:50

Даны переменные A, B, C, D найти MAX и MIN надо текст для паскаля

+1

Ответы (2)

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

Христинья · Answer 1

Var a, b, c, d, n:integer;

begin

readln (a, b, c, d) ;

n:=a;

if a
n:=b;

if b
n:=c;

if c
n:=d;

writeln (n) ;

end.

Виктор · Answer 2

Program jij;

uses crt;

var a, b, c, d:integer;

Begin

clrscr;

writeln (''Введите четыре числа через пробел) ;

readln (a, b, c, d) ;

If a>b then max:=a; else max:=b;

If c>max then max:=c;

If d>max then max:=d;

If a
If c
If d
writeln ('Максимальное ', max,' Минимальное ', min) ;

readln;

End.