Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Нужна блок-схема Напишите программу, которая по номеру дня недели- целому числу от 1 до 7- выдает в качестве результата количество занятий в вашей группе в соответствующий день

Ответ оставил Гость

Var
  x: integer;
BEGIN
Repeat
 Write(Ввести число от 1 до 7: );
 Readln(x);
until x in [1..7];
Case x of
   1: Writeln(21 пара); 
2: writeln(4 пары);
  3: writeln(св);
  4: writeln(св); 
5: writeln(св);
   6: writeln(св); 
7: writeln(нет пар);
end;
Readln
END.