Найти наибольшее из трёх чисел и уменьшить его на - вопрос №5583398 от yakovleva03ow836v 03.01.2023 20:48

Question

Информатика: Найти наибольшее из трёх чисел и уменьшить его на 5( в паскаль)

yakovleva03ow836v · Answer

var a,b,c,max:real; begin readln(a,b,c); max:=a; if max b then max:=b; if max c then max:=c; max:=max-5; write(max); end....