(x< 25 )и не (x делится на 8)​ найдете наименьшее

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.

в феврале 1946 года был создан первый компьютер.

если положить, что вода замерзает при нуле градусов, то:

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.

1. а)11000110;

    б)11000001011;  

    в)1100000101,111;  

    г)2335,54;    

    д)3f5d0.

  2.а) 100000011;

      б)111110100;  

      в) 1000111001,1101;  

      г)1110111100000  

3.а) 10001111011100;  

4.а)   11000;     б) 70;     в)7е.