Дано число: 2,345d, d>1.

Заполни пропуски в записи числа.

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

-32=-100000

прямой код 10100000

обратный код 11011111

дополнительный код 11100000

-102=-1100110

прямой код 11100110

обратный код 10011001

дополнительный код  10011010

-126=-1111110

прямой код 11111110

обратный код 10000001

дополнительный код  10000010

var x,y,h: real;

begin

  h: =2;

  x: =1;

  repeat

        y: =5*x-2;

        writeln(x: 5,y: 5);

        x: =x+h;

  until x> 20;

end.

pascal

program tovar;

var i,k: integer; t,s: real;

begin

s: =0;  

writeln ('vvedit kol-vo tovara');

readln (k);

for i: =1 to   k do

begin

writeln ('vvedit stoimost',i,'-go tovaru');

readln (t);

s: =t+s;

end;

writeln ('stoimost pokupok-',s);

readln

end.