Регистрация
suslik030715
02.12.2022 10:33
Информатика
Есть ответ 👍

Постройте таблицу истинности логического выражения . Запишите в строку последний
результирующий столбик сверху вниз

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

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

WrestlerTeam
WrestlerTeam
4,8(95 оценок)

program top;

var k,x : integer;

 begin

  k := 1;

  while k <> 0 do

  begin

     readln(k);

     if k mod 2 = 0 then

       x := x +1

   end;  

   write(x-1);

 end.

Популярно: Информатика