Найдите наименьшее для трех заданных чисел x y z.
Найдите наименьшее для трех заданных чисел x y z.
Гость
Ответ(ы) на вопрос:
ГостьProgram asd;
USES crt;
var a,b,c,min:real;
BEGIN
clrscr;
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.
Не нашли ответ?
Похожие вопросы