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

Question

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

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

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

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

Answer 1

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.