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

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

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

Задать свой вопрос
1 ответ

Program asdas;

Uses crt;

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

begin

readln (ves);

if veslt;15

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

else if vesgt;30

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

end.



, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт