Найдите наименьшее для трех заданных чисел x y z

Задание:

Найдите наименьшее для трех заданных чисел x y z.

Решение:

Program asd; USES crt; var a,b,c,min: real; BEGINclrscr; Writeln ('Vvedite x: '); Readln (a); Writeln ('Vvedite y: '); Readln (b); Writeln ('Vvedite z: '); Readln (c); min: =a; if b < min then min: =b; if c < min then min: =c; Writeln ('Minimalnoe chislo: ',min); Readln; END.

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

Отправить свой ответ