Помогите плиз. На паскале. Даю много баллов 11. Введите с клавиатуры возраст человека (от 1 до 25) и выведите на экран сообщение
Помогите плиз. На паскале. Даю много баллов
11. Введите с клавиатуры возраст человека (от 1 до 25) и выведите на экран сообщение о его статусе (ребенок, ученик или студент). 12. Введите с клавиатуры скорость объекта в км/ч (от 5 до 100) и выведите на экран сообщение об объекте (человек, велосипедист или автомобилист).
program HelloWorld; var age : integer; begin read(age); case age of 1..6: write('Ребенок'); 7..17: write('Ученик'); 18..25: write('Студент'); else write('Некорректный ввод'); end;end.
Var a,b:integer; beginwriteln('Введите 1 число'); readln(a); writeln('Введите 2 число'); readln(b); if a>=b then writeln('Наименьшее число равняется ',b) else writeln('Наименьшее число равняется ',a); <span>end.</span>