Чтобы увидеть графическую заставку к игре необходимо открыть .avi
Ответ: а
Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>
СРЗНАЧ(B2:D2) = (b2 + c2 + d2)/3 = 6
СУММ(B2:E2) = b2 + c2 + d2 + e2 = 20
b2 + c2 + d2 = 6*3 = 18
b2 + c2 + d2 + e2 - (b2 + c2 + d2) = 20 - 18 = e2 = 2
Ответ: значение ячейки e2 равно 2.
Номер 2 не является вещественной константой.
1) var i,d,q:integer;
begin
d:=1;
for q:=5 downto 1 do {можно и for q:=1 to 5 do но у вашем примере идет на спад , я сделал так же}
d:=d+q;
writeln(q,' ',d);
end.
2) var i,d,q:integer;
begin
d:=1;
for q:=4 downto 1 do
d:=d+q;
writeln(q,' ',d);
<span>end.
3) Здесь вовсе не нужен цикл , всеравно переменная станет 1(еденицей)
var i,d,q:integer;
begin
d:=1;
q:=1;
d:=d+q;
writeln(q,' ',d);
<span>end.
4) Будет зацикленость , поскольку не зименяется значение q (либо ошибка в условии)
А так как нет изменений то и переработать нельзя в цикл for</span></span>