Ответы
Ответ дал:
0
Var
a,m:real;
Begin
Write('a = ');
ReadLn(m);
Write('b = ');
ReadLn(a);
if a<m then m:=a;
Write('c = ');
ReadLn(a);
if a<m then m:=a;
WriteLn('Меньшее из данных чисел: ',m);
End.
a,m:real;
Begin
Write('a = ');
ReadLn(m);
Write('b = ');
ReadLn(a);
if a<m then m:=a;
Write('c = ');
ReadLn(a);
if a<m then m:=a;
WriteLn('Меньшее из данных чисел: ',m);
End.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад