помогите пожалуйста помогите решит
Приложения:
Ответы на вопрос
Ответил picnic212121
0
1) program rtr;
Var
A,b,c:integer;
Begin
Writeln('введите любые 3 числа');
readln(a,b,c);
If a>b then
A:=b ;
If a>c then
Writeln ( 'мин число =',с)
Else
Writeln('мин число =', а);
Readln;
End.
Var
A,b,c:integer;
Begin
Writeln('введите любые 3 числа');
readln(a,b,c);
If a>b then
A:=b ;
If a>c then
Writeln ( 'мин число =',с)
Else
Writeln('мин число =', а);
Readln;
End.
Новые вопросы
Химия,
2 года назад
Українська мова,
2 года назад