Задать вопрос
7 января, 13:32

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

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

Ответы (1)
  1. К
    7 января, 15:49
    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 тонн, то ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Верно ли высказывание "Любую задачу можно решить используя только три конструкции алгоритмов: линейную, разветвляющуюся и циклическую"? ДА? НЕТ?
Ответы (2)
Язык Pascal! Дан алгоритм: Подпрограмма 1) ввести натуральное число M, N 2) если M=N перейти к п. 5, иначе к следующему пункту 3) если M>N, то M:=M-N; иначе N:=N-M 4) перейти к п.
Ответы (1)
Что получится в результате работы следующего алгоритма, если 1) a=2, b=5, 2) a=0, b=-2 алг пример цел a, b, c нач ввод a, b если a>0 то если b>0 то c:=a+b иначе c:=10 кв иначе если b>0 то c:=a*b иначе c:=0 кв кв вывод c кон
Ответы (2)
Что получится в результате работы следующего алгоритма, если 1) a=2, b=5, 2) a=0, b=-2 алг пример цел a, b, c нач ввод a, b если a >0 то если b>0 то c:=a+b иначе c:=10 кв иначе если b>0 то c:=a*b иначе c:=0 кв кв вывод c кон
Ответы (1)
2. Что получится в результате работы следующего алгоритма, если 1) a=2, b=5, 2) a=-1, b=-2 алг пример цел a, b, c нач ввод a, b если a>0 то если b>0 то c:=a+b иначе c:=10 кв иначе если b>0 то c:=a*b иначе c:=0 кв кв вывод c кон
Ответы (1)
*{*}
 
Войти
Задать вопрос