Ответ:
-20:-70
Объяснение:
Сначало складываем в столбик числа получаем 2;7 повторить это значит умножить (обе координаты) получаем 20;70 по вопросу надо вернуть в исходную точку значит -
Const mx=3;var x4,y4,i:integer;x:Array[1..mx] of integer;y:Array[1..mx] of integer;begin
for i:=1 to 3 do beginwrite('введите x',i,' y',i);Read(x[i],y[i]);
end;x4 := x[3]; y4 := y[1];write('x4 = ',x4,'y4 = ',y4)end.
Var a,b,c: real;
Begin
Writeln ('введите a,b,c');
Readln (a,b,c);
If a+b=c then writeln (a,' + ',b,' = ', c) else
If a+c=b then writeln (a,' + ',c,' = ',b) else
If b+c=a then writeln (b,' + ',c,' = ',a) else writeln ('нет такого числа');
End.
Var i, h, res: integer;
begin
write('H = ');
readln(h);
res:=1;
for i:=1 to h do
res:=res*i;
writeln(h, '! = ', res);
<span>end.</span>
Байты, КилоБайты, МегаБайты и т.д
1 байт = 8бит
1 килобайт = 1024 байт