Как создать программу минимум с числами a,b,c?
PaScaL
var a,b,c,min:integer;
begin
writeln(введите числа a,b,c); readln(a,b,c);
min:=a;
if (bif (cwriteln(min , min);end.
Оцени ответ
Вход
Регистрация
Задать вопрос
PaScaL
var a,b,c,min:integer;
begin
writeln(введите числа a,b,c); readln(a,b,c);
min:=a;
if (bif (cwriteln(min , min);end.