То что некоторые выполняют задания и слушают на уроки и что некоторые не чего не делают и болтают на уроках
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
<span>end.</span>
Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>
Ответ:
Объяснение:
Можно воспользоваться следующим приемом.
1)
В Excel составляем таблицу истинности. Выделим в ней те строки, в которых F=0 (F=ЛОЖЬ) (Рис. 1)
2)
Сравним нашу таблицу с приведенной в задаче. (Рис.2)
Пишем ответ:
Y Z W X