5x Сместиться на (1, 2) Сместиться на (−2, 2) Сместиться на (2, −3)
5x Сместиться на (1 - 2 + 2, 2 + 2 - 3)
5x Сместиться на (1, 1)
Сместиться на (5, 5) =>
Сместиться на (-5, -5)
Ответ: 4.
Var
x,y:integer;
Begin
writeln('x: ');
readln(x);
writeln('y: ');
readln(y);
if (x>0) and (y>0) then writeln('ДА') else writeln('НЕТ');
<span>End.
------------------Помогло ? Скажите спасибо-----------------</span>
PascalABC.NET 3.4
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 0, 2); a.Println;
var (k, km) := (0, 0);
for var i := 0 to n-1 do
if a[i] = 0 then
if k = 0 then k := 1
else k += 1
else
begin
if k > km then km := k;
k := 0
end;
Writeln('Максимальное количество нулей подряд равно ',km)
end.
Отрежь из любого материала(только не из бумаги!) кусок по форме твоей мыши и приклей её к столу на двусторонний скотч
ГОТОВО!