Program gt;
var a:array[1..7]of integer;
k,i,q:integer;
begin
read(k);
q:=0;
for i:=1 to 7 do
read(a[i]);
for i:=1 to 7 do
begin
if(a[i]>-20)then writeln(i,' день ',k,' тонн угля');
if(a[i]<=-20)and(a[i]>=-30)then writeln(i,' день ',k+5,' тонн угля');
if(a[i]<-30)then writeln(i,' день ',k+12,' тонн угля');
if(a[i]<-30)then q:=q+1;
end;
writeln(q,' дней температура было ниже -30');
end.
Ученики делают домашние задания. Учителя их проверяют.
Домашнее задание по геометрии было сложным. Далеко не все ученики выполнили его.
Вова любит алгебру и геометрию.
Ленивая Маша списала у отличника.)))
как-то так))
После выполнения этой программы, поле из начального состояния (см. вторую картинку задания) станет как на картинке в моём ответе.
Это соответствует варианту А.
Что делалось по программе:
-переходим на клетку (2,2)
-проверили, синяя ли плитка (и т.к. она не синяя, там вообще нет плитки, то действия в скобках не делаем)
-переходим на клетку (3,3)
-проверили, красная ли там плитка (и т.к. она не красная, там опять не было плитки, то действия в этих скобках не делаем, а делаем то что в скобках "иначе"- то есть кладём красную плитку и переходим на клетку (4,4) )
-проверили, красная ли плитка (и, т.к. она красная, то выполняем действия скобках- то есть снимаем плитку, и кладём вместо неё синюю плитку).
Вот и всё, в результате получится такое поле.
1 бит т.к красных и черных в колоде одинаковое кол-во.
В лучший ответ пожалуйста, 2 до отличника не хватает
Для начала, определим длину фразы - 23 символа
Далее все зависит от кодировки
1) Если кодировка <span>ASCII или ANSI, то 1 символ в этой кодировке кодируется одним байтом, следовательно, байт во фразе 23, а бит 23*8 = 184
184 бита
</span>2) Если кодировка Unicode, то 1 символ в этой кодировке кодируется двумя байтами, следовательно, байт во фразе 46, а бит 46*8 = 368
368 бита
и т.д.
