Организация ветвления

[toxa777]

Организация ветвления

Как в эту программу добавить цикл,определения возраста?


var s:string;
begin
writeln('Enter your gender (М or Ж)');
readln(s);
if (s='М') or (s='М') then writeln('военнообязанный');
if (s='Ж') or (s='Ж') then writeln('невоеннообязанная');
readln
end.


Вот задание-Напишите программу, которая по возрасту и полу человека, определяет является ли он военнообязанным (мужчина – военнообязанный; женщина - невоеннообязанная).

 

[Vladimir_S]

Как в эту программу добавить цикл,определения возраста?

А вот так:

var
 G:Char;
 Age:Byte;
begin
 write('Enter your gender (M or W) ');
 readln(G);
 write('Enter your age ');
 readln(Age);
 if ((G='M') or (G='m')) and (Age>17) and (Age<46) then
  writeln('Liable for call-up')
 else
  writeln('Not liable for call-up');
 readln
end.