Необходимо написать программу, которая спрашивает у пользователя возраст, и выдает информацию о том, является ли он совершеннолетним.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | program choice_2; uses crt; var year: integer; begin clrscr; write(‘Ваш возраст > ‘); readln(year); if (year > 0) and (year < 18) then write(‘Вы не достигли совершеннолетия’) else if (year > 17) and (year < 150) then write(‘Вы достигли совершеннолетия’) else write(‘Вероятно, введены неверные данные’); readkey; end. |