Составьте разветвляющуюся программу в паскале: ** автобазе стоят весы. Если машина легче...

Question

Составьте разветвляющуюся программу в паскале: На автобазе стоят весы. Если машина легче 15 тонн, то недогруз. Если больше 30 тонн, то перегруз. Иначе норма.

Answer 1

Program asdas;

Uses crt;

var ves:real; //real- ибо нужно допустить вес в 3,5 тонны как пример

begin

readln (ves);

if ves<15</p>

then writeln ('недогруз')

else if ves>30

        then writeln ('норма');

end.