Необходимо написать программу, которая спрашивает у пользователя возраст, и выдает информацию о том, является ли он совершеннолетним.
Решение:
|
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. |