Даны переменные A,B,C,D найти MAX и MIN надо текст для паскаля
Даны переменные A,B,C,D найти MAX и MIN надо текст для паскаля
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,d,n:integer;
begin
readln(a,b,c,d);
n:=a;
if a
Гость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
Не нашли ответ?
Похожие вопросы