Предмет: Информатика,
автор: JosephSeed
Составьте разветвляющуюся программу в паскале:
На автобазе стоят весы. Если машина легче 15 тонн, то недогруз. Если больше 30 тонн, то перегруз. Иначе норма.
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Русский язык,
автор: asoltanmahmut
Предмет: Математика,
автор: yasminarakhimova10
Предмет: Математика,
автор: karimhanzhansel
Предмет: Математика,
автор: zxcv15
Предмет: Физика,
автор: Adel3651