Регистрация
zill81
19.05.2022 18:42
Информатика
Есть ответ 👍

Даны переменные a,b,c,d найти max и min надо текст для паскаля

153
350
Посмотреть ответы 3

Ответы на вопрос:

alnoskoff
alnoskoff
4,7(83 оценок)
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.
mn2281488
mn2281488
4,5(46 оценок)
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.
Мelissa205
Мelissa205
4,5(66 оценок)
[()] [()] [()]   |   | вот тебе и светофор

Популярно: Информатика