Составьте разветвляющуюся программу в паскале:

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

Question

Информатика

Истора

12 июня, 09:59

Составьте разветвляющуюся программу в паскале:

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

+3

Ответы (1)

Знаешь ответ?

Гамбл · Answer 1

Program asdas;

Uses crt;

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

begin

readln (ves);

if ves<15

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

else if ves>30

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

end.

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

Составьте разветвляющуюся программу в паскале:

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