Var a: real; begin a: =2; while a< 2.8 do begin a: =a+0.1; writeln(a); end; end.
Спасибо
Ответ дал: Гость
язык программирования: паскальvara, b, c, min : integer; beginreadln (a); readln (b); readln (c); min : = a; if b < min thenmin : = b; if c < min thenmin : = c; writeln (min); end.
Ответ дал: Гость
пользоветель-это система их бывает много есле создать.
Популярные вопросы