Var
O:string;
i,k:byte;
B,pO:array[1..3] of string;
Begin
B[1]:='2 * 2 = 5 ?';pO[1]:='нет';
B[2]:='Оператор Read вводит данные?';pO[2]:='да';
B[3]:='СССР победил в войне 1812 года?';pO[3]:='нет';
k:=0;
For i:= 1 to 3 do
Begin
WriteLn(B[i]);
ReadLn(O);
O:=LowerCase(O);
While (O <> 'да')and(O <> 'нет') do
Begin
Write('Попробуйте ещё раз: ');ReadLn(O);
O:=LowerCase(O);
End;
if pO[i] = O then k:=k+1;
End;
WriteLn('Количество правильных ответов: ',k);
End.
Формула в ячейке D3 - =$A3-D$1
так как $ используется для абсолютной адресации то изменим формулу для ячейки E6 - =$A6-E$1
Значение ячейки D3 = 17
Значение ячейки E6 = 46
Ответ : 46
Прости, скинуть текстом не смогу т.к. за школным пк делал.
1) Перейти на сайт https://урокцифры.рф/
2) Пролистать ниже и найти раздел "5-7 классы. Уровень для опытных специалистов", нажать на "пройти".
3)Ответить на пару следующих вопросов (выбор области, класса, пола, колличества игроков)
4) Прочитать короткий комикс и приступить к игре.
В игре нужно отдавать команды роботу, чтобы он двигался и фотографировал рыбок. Вначеле игры идёт объяснение о том, как правильно писать команды роботу.