Задать вопрос
12 февраля, 09:05

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

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

+1
Ответы (1)
  1. 12 февраля, 12:13
    0
    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 тонн, то ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы