a,b,c,min: integer; begin writeln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел: ',min); end.
Ответ дал: Гость
program first; var i,a,b: integer; begin cls; read(a,b,i); if a< 0 then write(sqr(a));
Популярные вопросы