даны переменные A,B,C,D найти MAX и MIN надо текст для паскаля
Answers & Comments
kolesin
Var a,b,c,d,n:integer; begin readln(a,b,c,d); n:=a; if a<b then n:=b; if b<c then n:=c; if c<d then n:=d; writeln(n); end.
0 votes Thanks 3
frederich
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<b then min:=a; else min:=b; If c<max then min:=c; If d<max then min:=d; writeln('Максимальное ',max,' Минимальное ',min); readln; End.
3 votes Thanks 2
NoviceYola
Необходимо добавить в переменные min и max! После else не ставиться ;
NoviceYola
clrscr(очистка экрана) не нужна в PacalABC(я думаю,что именно там он работает) :D
Answers & Comments
begin
readln(a,b,c,d);
n:=a;
if a<b then
n:=b;
if b<c then
n:=c;
if c<d then
n:=d;
writeln(n);
end.
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<b then min:=a; else min:=b;
If c<max then min:=c;
If d<max then min:=d;
writeln('Максимальное ',max,' Минимальное ',min);
readln;
End.