Запиши команды для исполнителя Чертёжник, чтобы можно было изобразить замкнутую геометрическую фигуру, - id1158672520200928 от dianashotys 28.09.2020 10:07

Question

Информатика: Запиши команды для исполнителя Чертёжник, чтобы можно было изобразить замкнутую геометрическую фигуру, положение вершин которой на координатной плоскости определяется парами чисел (1,1),(3,2),(8,9). сместиться в точку (1,1) опустить перо сместиться в точку ( , ) сместиться в точку ( , ) сместиться в точку ( , )

dianashotys · Accepted Answer

//1 Var  a,b,z:integer;  function max(a,b:integer):integer;  begin   if a b then max:=a else max:=b;  end;  begin  read(a,b);  z:=max(a,2*b)*max(2*a-b,b);  writeln(z); end. //2(если имеются в виду чётные по индексу) Const  n=5; Var  ar:array[1..n] of integer;  i,r:integer; begin  writeln( Array: );  for i:=1 to n do   begin    readln(ar[i]);    if not(odd(i)) then r:=r+ar[i];   end;  writeln(r); end. //2(если имеются в виду чётные по значению) Const  n=5; Var  ar:array[1..n] of integer;  i,r:integer;...

MOGZ ответил