Меню сайта

Задача №19

Определитьв какие отряды распределят детей.

uses crt-

var adge:integer-

begin-

clrscr-

writeln(‘Введите возраст ребенка’)-

readln(adge)-

IF (adge &gt- 5)and (adge &lt-= 7) THEN writeln(‘5-й отряд’)-

IF (adge &gt- 7)AND (adge &lt-= 9) THEN writeln(‘4-й отряд’) —

IF (adge &gt- 9)AND (adge &lt-= 11) THEN writeln(‘3-й отряд’) —

IF (adge &gt- 11)AND (adge &lt-= 13) THEN writeln(‘2-й отряд’) —

IF (adge &gt- 13)AND (adge &lt-= 15) THEN writeln(‘1-й отряд’) — —

IF (adge &lt- 6) OR(adge &gt- 15) THEN writeln(‘В лагерь не допускается’)-

end.

Категория: Разветвляющиеся программы | Дата: 07.01.13

Меню раздела
Блок