shneider1969
?>

Программа в паскале y=0, 4x²-1/x, если х от 2 до 10. . 30 .

Информатика

Ответы

Раисовна878
Pascal abc program abc; var x: integer; y: real; begin for x: =2 to 10 do y: =(0.4*x*/x); writeln(x); end. не уверен, но вроде так. если не идёт то скажи
minchevaelena23

4:

var a: array [1..3] of integer;

   i,min,max : integer;

begin

   for i:= 1 to 3 do

   begin

       write('a[',i,'] = ');

       read(a[i]);

       writeln;

   end;

   min:= a[1];

   max:= a[1];

   for i:= 1 to 3 do

   begin

       if a[i] < min then

       begin

           min:= a[i];

       end;

   end;

   for i:= 1 to 3 do

   begin

       if a[i] > max then

       begin

           max:= a[i];

       end;

   end;

   writeln('min = ',min);

   writeln('max = ',max);

end.

5:

var a: array [1..5] of integer;

   i,max : integer;

begin

   for i:= 1 to 5 do

   begin

       write('a[',i,'] = ');

       read(a[i]);

       writeln;

   end;

   max:= a[1];

   for i:= 1 to 3 do

   begin

       if a[i] > max then

       begin

           max:= a[i];

       end;

   end;

   writeln('max = ',max);

end.

Даниил247

4:

var a: array [1..3] of integer;

   i,min,max : integer;

begin

   for i:= 1 to 3 do

   begin

       write('a[',i,'] = ');

       read(a[i]);

       writeln;

   end;

   min:= a[1];

   max:= a[1];

   for i:= 1 to 3 do

   begin

       if a[i] < min then

       begin

           min:= a[i];

       end;

   end;

   for i:= 1 to 3 do

   begin

       if a[i] > max then

       begin

           max:= a[i];

       end;

   end;

   writeln('min = ',min);

   writeln('max = ',max);

end.

5:

var a: array [1..5] of integer;

   i,max : integer;

begin

   for i:= 1 to 5 do

   begin

       write('a[',i,'] = ');

       read(a[i]);

       writeln;

   end;

   max:= a[1];

   for i:= 1 to 3 do

   begin

       if a[i] > max then

       begin

           max:= a[i];

       end;

   end;

   writeln('max = ',max);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Программа в паскале y=0, 4x²-1/x, если х от 2 до 10. . 30 .
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ccc712835
ekkim310
nsh25044
makeeva-nataliya60
vipteatr
Джулия
artemkolchanov24
Руслан1360
D-posilochka
VSArsentev
tatry2005
hellomaxim
evsmorodina
Alyona744
polyakovaelena