с информатикой Даны числа a,b,c
Вычислить x=a*b²-b
y=(b+c)²-a²
Если X>Y,то вывести значение Х,иначе вывести значение y.

Question

Информатика: с информатикой Даны числа a,b,c Вычислить x=a*b²-b y=(b+c)²-a² Если X Y,то вывести значение Х,иначе вывести значение y. ​

Syrtou · Accepted Answer

Программа, которая использует два массива

var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do   begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do   begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.

ИЛИ Программа не использующая два массива, а просто переворачивающая первый

var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do   begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do  write(c[i], ' ');
end.

Обе программы работают!

с информатикой Даны числа a,b,cВычислить x=a*b²-by=(b+c)²-a²Если X>Y,то вывести значение Х,иначе вывести значение y. ​

MOGZ ответил

с информатикой Даны числа a,b,c
Вычислить x=a*b²-b
y=(b+c)²-a²
Если X>Y,то вывести значение Х,иначе вывести значение y.