Помогите составить программу на Паскале
На первом курсе студенты четырёх групп сдают зачёт по информатике. На втором курсе группа № 1 сдаёт экзамен по дисциплине «Информационные технологии в экономике» , группа № 2 – экзамен по дисциплине «Информационные технологии в физике» , группа № 3 – экзамен по дисциплине «Информационные технологии в географии» , группа № 4 – экзамен по дисциплине «Информационные технологии в математических исследованиях» . Задать с клавиатуры номер курса и номер группы и вывести на экран сообщение, какой зачёт или экзамен группа будет сдавать.

  • блин я думал у тебя на фотке титька наполовину закрытая чем то, а посмотрел оказывается вторая рука
  • readln(curs);
    readln(gruppa);
    if curs = 1 then writeln ('Зачет по информатике');
    if curs = 2 then
    case gruppa of
    1:writeln('Информационные технологии в экономике');
    2:writeln('Информационные технологии в физике');
    3:writeln('Информационные технологии в географии');
    4:writeln('Информационные технологии в математических исследованиях');
    end;
  • program imcunt;
    const tp:array[1..2,1..4] of string =
    ('зачёт по информатике','Информационные технологии в экономике',
    'зачёт по информатике','Информационные технологии в физике',
    'зачёт по информатике','Информационные технологии в географии',
    'зачёт по информатике','Информационные технологии в математических исследованиях');
    var a,b:integer;
    begin
    readln(a,b);
    writeln(tp[ a,b ]);
    end.
  • ММММмммммммм.. . дааа
  • А можно полюбопытствовать, зачем оно вам?

Вас заинтересует