Program aaa;
uses crt;
var a,b,c:integer;
x, y: real;
begin
writeln(' Vvedite a ');
readln(a);
writeln(' vvedite b ');
readln (b);
wriateln(' Vvedite c' );
readln (c);
x:=((2*a^2-b)/(3*c));
y:=(sqrt(x+c^2)+4*a*b);
writeln( 'x=', x, 'y=', y);
<span>end.
Вот программа, к сожалению, паскаля на компе у меня нет, поэтому, думаю, ты сам справишься с подготовкой программы к запуску и тестированию
</span>
1 потомушто больше кв.. нет
Всё хорошо бы только надо ещё и картинки кораблей прилогать
<span>const n = 5; var a: array[1..n] of integer;
i, k: integer;
s: real;
begin
s := 0;
for i := 1 to n do
begin
readln(a[i]);
s := s + a[i];
end;
s := s / n;
writeln('Среднее значение = ', s:0:3);
k := 1;
for i := 2 to n do
if abs(a[k] - s) > abs(a[i] - s) then k := i;
writeln('Индекс элемента: ', k, ' Значение = ', a[k]);
end.</span>