Роботу необходимо определить максимальный уровень радиоактивного заражения в коридоре, закрасить клетки с данным уровнем заражения. так же необходимо напечатать этот уровень и количество данных клеток. написать программу в кумире

Потому что (и) значит, что условие верно толькое если все его подусловия верны; представим (и) в виде умножения, а множители: 0(неверно) и 1(верно), тогда по правилам умножения получится: 1*0=0, 0*1=0, 0*0=0, 1*1=1, т.е если оба множители 1(верны), то и все выражение верно. со сложением также: или - значит выражение верно, если одно из условий выполнятся, берем слагаемые: 0(неверно) и 1(верно), по правилам сложения: 1+0=1, 0+1=1, 0+0=0, 1+1=1, т.е если хотя бы 1 слагаемое верно, то и все выражение верно.

// pascalabc.net var  gl: ='кпстфхцчшщ';   zv: ='бвгджзлмнр';   zi: array [1..2,1..10] of integer;   //для отметок о выполнении условий для звонких  s: string;   i,n: integer;   chet: boolean; //признак четности слова begin chet: =false; writeln('введите строку из слов, разделенные пробелом'); readln(s); for i: =1 to length(s) do   begin   n: =pos(s[i],zv);   if (chet=false) then       begin       delete(gl,pos(s[i],gl),1);       if n> 0 then zi[1,n]: =1   //первый признак выполнен       end       else if n> 0 then zi[2,n]: =-1; //второй признак не выполнен   if s[i]=' ' then chet: =not(chet);   end; writeln('глухие согласные, которых нет в нечетных словах: ',gl);   write('звонкие согласные, которых нет в четных словах и которые входят хотя бы в одно нечетное: ');   for i: =1 to 10 do   if zi[1,i]+zi[2,i]=1 then write(zv[i]); end.