profile
Опубликовано 4 года назад по предмету Информатика от c17crunch

все надо сделать в паскале. не было на теме, болел. помогите, завтра утром надо сдать.

На день рождения пришли Н детей. Из них В мальчиков. Сколько пришло девочек?  

 

 

 

 

 

Составить программу вычисления функции:

Y= ((x+1)^2+2(x+1))/4
рассчитать для x=3. 

 

  1. Ответ
    Ответ дан syber2013
    1)
    program prim;
    uses crt;
    var h,b,dev:integer;
    begin
     clrscr;
     writeln("Введите общее кол-во детей");
     readln(h);
     writeln("Из них мальчиков");
     readln(b);
     dev:=h-b;
     writeln("На день рождения пришло", dev ,"девочек.");
     repeat until
     keypressed;
    end.

    2)
    program prim1;
    uses crt;
    var x:integer;
         y:real;
    begin
     clrscr;
     x:=3;
     y:=(sqr(x)+2*x+3)/4;
     writeln("Y равно: ", y);
     repeat until
     keypressed;
    end.