НАДО НАПИСАТЬ ПРОГРАММУ В PASCAL Программа проводит анкетирование студентов. Студенты...

Question

НАДО НАПИСАТЬ ПРОГРАММУ В PASCAL
Программа проводит анкетирование студентов. Студенты вводят Ю - если он юноша, Д - если девушка и количество баллов за экзамен (от 1 до 70 баллов). Программа должны выдать в какую группу попал этот чел: девушки, набравшие меньше или равно 35 баллов идут в группу технологов, а больше 35 баллов - в группу менеджеров; юноши набравшие больше 35 баллов идут на инженера, а набравшие меньше или равно 35 баллов - в металлургию

Answer 1

Program sort;
var sex:string;
    points:integer;
begin
  writeln('Введите пол');
  readln(sex);
  writeln('Введите кол-во баллов');
  readln(points);
  if sex = 'Д' then begin
    if points <= 35 then<br>      writeln('В группу технологов')
    else
      writeln('В группу менеджеров');
  end
  else begin
    if points <= 35 then<br>      writeln('В группу металургов')
    else
      writeln('В группу инженеров');
  end;
end.