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

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

Question

Информатика

Шем

12 февраля, 09:05

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

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

+5

Ответы (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 тонн, то перегруз. Иначе норма.