Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел. pascal

172

474

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

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

Qwerty3111

Информатика

4,8(81 оценок)

Var a,b,c,max,min: integer; begin readln(a,b,c); if (a> b) and (a> c) then max: =a; if (b> a) and (b> c) then max: =b; if (c> a) and (c> b) then max: =c; if (a< b) and (a< c) then min: =a; if (b< a) and (b< c) then min: =b; if (c< a) and (c< b) then min: =c; writeln('максимальное значение - ', max, 'минимальное - ', min); end.

Znatokiys

Информатика

4,4(31 оценок)

Pascalabc.net program myprog; var max_a, max1, min_a, min1, a, b, c: longint; begin writeln('введите три числа'); readln(a, b, c); min1 : = min(a, b); min_a : = min(min1, c); max1 : = max(a, b); max_a : = max(max1, c); writeln('максимальное число ', max_a); writeln('минимальное число ', min_a); end.

Aknura150702

Информатика

4,6(6 оценок)

Procedure chisla(n : integer); var a : integer; begin if (n < 1) then writeln else begin read(a); if (abs(a) < 1000) then begin chisla(n-1); write(a,' '); end else chisla(n); end; end; function readn() : integer; var n : integer; begin write('n='); readln(n); if not(n in [0..1000]) then n : = readn(); readn : = n; end; var n : integer; begin n : = readn(); writeln('введите ', n, ' целых чисел через пробел и нажмите enter'); chisla(n); end.