Это правильно? Это информатика 9 класс. Задача

Это правильно? Это информатика 9 класс. Задача. Среди 4 чисел найти максимум и минимум: program zadacha; vara,b,c,d,max,min: real; beginwriteln ('vvedite kofficient a,b,c,d'); If a>b then max: =a else min: =b; If c>d then max: =c else min: =d; If a>c then max: =a else min: =c; end.

в избранное

korser

15 августа 2022

USES crt; var a,b,c,d: real; BEGINclrscr; readln (a,b,c,d); if (a > b) and (b > c) thenwriteln ('Max=',a,', Min=',c); if (b > a) and (a > c) thenwriteln ('Max=',b,', Min=',c); if (a > c) and (c > b) thenwriteln ('Max=',a,' Min=',b); if (c > a) and (a > b) thenwriteln ('Max=',c,', Min=',b); if (b > c) and (c > a) thenwriteln ('Max=',b,', Min=',a); if (b > d) and (d > b) thenwriteln ('Max=',b,', Min=',b); if (d > b) and (d > b) thenwriteln ('Max=',d,', Min=',a); readln; END. Задача легкая, но блин, пришлось подумать…

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?