Составим программу обмена местами двух чисел c=4,d=15.

program obmenDan;
var c, d:integer;
procedure obmen ( a, b:integer);
var m:integer;
begin
m:=a; a:=b; b:=m;
writeln(a, b);
end;
begin
writeln ('Введите 2 числа: ');
readln(c, d);
obmen(c, d);
writeln(c,' ',d);
end.
Проанализируй и выбери верные ответы:

86 - 8 = 78 любят компьютерные игры

78 - 62 = 16 человек любят только квесты

78 - 54 = 24 человек любит только симуляторы

54 - 16 = 38 человек любят и квесты и симуляторы.

ответ. 38 человек любят и квесты и симуляторы.

круги эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.

внутри одного круга напиши с и 62, это те кто любит симуляторы их 62 чел.

внутри другого круга напиши к и 54, это те кто любит квесты их 54 чел.

з.ы. у меня просто не хочет прикреплять рисунок.

1)m(hcl)=50*0.292=14.6г

2)n(hcl)=m/m=14.6/36.5-=0.4моль

3)n(оксида металла)=0,4/2=0,2

4)m(оксида металла)= 8/0,2=40

5)раз металл двухвалентен, то значит формула - meo, следовательно вычти из молярной массы оксида массу кислорода

м(металла)=40-16=24

следовательно, mgo 

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

один, два, три, четыре, пять

12345