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

petechkaPetrovPetor petechkaPetrovPetor    1   06.04.2019 04:59    3

Ответы
yuliaovcharova yuliaovcharova  28.05.2020 18:14

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика