Все надо сделать в паскале. не было на теме, болел. помогите, завтра утром надо сдать.На день рождения пришли Н детей. Из них В мальчиков. Сколько пришло девочек? Составить программу вычисления функции: Y= ((x+1)^2+...
Все надо сделать в паскале. не было на теме, болел. помогите, завтра утром надо сдать.На день рождения пришли Н детей. Из них В мальчиков. Сколько пришло девочек? Составить программу вычисления функции: Y= ((x+1)^2+2(x+1))/4
рассчитать для x=3.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы