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

Question

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

Answer 1

60

bhim1973

02 августа 2022

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.

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

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

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

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: