Машина поста Составить программу для заполнения всех клеток от левой метки до правой. Количество пустых клеток между метками неизвестно.

216

332

Посмотреть ответы 1

Ответы на вопрос:

kedr3

Информатика

4,7(57 оценок)

program pr; uses crt; var x: integer; beginwriteln('введите день недели'); readln(x); case x of1: writeln('5 пар'); 2,3: writeln('4 пары'); 4: writeln('3 пары'); 5: writeln('2 пары'); 6,7: writeln('пар нет'); end; readln; end.

==========================================================