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

Question

Информатика

Груняка

13 июля, 02:57

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

+5

Ответы (2)

Знаете ответ?

Велислава · Answer 1

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.

Алинка · Answer 2

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.