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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
