Найдите значения логического выражения

Равносильно

Объяснение:

Рыжая дачах личном

//вот так компилируется без ошибок uses crt; var k: integer; n: integer; begin clrscr; k: =0; writeln('тест по теме "циклы"'); writeln('вопрос 1. алгоритм называют циклическим, > '); writeln('если в нем: '); writeln('1)реализуется многократно повторяющаяся'); writeln(' последовательность действий'); writeln('2)используются повторяющиеся праметры'); writeln('3)много раз используются одни и те же операторы'); writeln('4)используются команда выбора'); write('введите номер правильного ответа: '); read(n); if n=1 then k: =k+1; writeln('вопрос 2. сколько раз будет выполнятся цикл,< '); writeln('если начальное значение параметра -6'); writeln('конечное значение 6,'); writeln('шаг изменения параметра равен 3'); writeln('1)6 раз'); writeln('2)5 раз'); writeln('3)4 раз'); writeln('4) не выполнится ни разу'); write('введите номер правильного ответа: '); read(n); if n=2 then k: =k+1; case k of 1,2: writeln('плохо'); 3: writeln('удовлетворительно'); 4: writeln('хорошо'); 5: writeln('отлично'); end; readkey; end.