4 года назад

Y=a^2=5x-8/4x-8=(6x/2) паскаль

2 ответа:

0 0

Var a,x,y:real;
begin
write('a=');readln(a);
write('X=');readln(X);
y:=a*a+5*x-8/(4*x)-8+(6*x/2);
writeln('y=',y:5:2);
end.

ТианаК4 года назад

0 0

Var y,a,x:real;
begin;
readln(x);
readln(a);
if x=0 then exit;
y:=sqr(a)+5*x-8/(4*x)-8+(6*x/2);
writeln(y);
end.

Читайте также

Посчитать и выдать значения функции y = равное 1!+2!+3!+4!+5! Через функцию function

Alan [704]

1+2+3+4+5 все сложи и получится ответ

0 0

4 года назад

Помогите пожалуйста Андрей может вводить текстовую информацию со скоростью 144 символов в минуту. Выясни, сколько времени ему по

Biathloner [14]

Ответ: 6736,8 мин

Объяснение:

53×416×44=970112 - символов всего

970112/144= 6736,8 м - понадобиться Андрею.

0 0

4 года назад

Прочитать ещё 2 ответа

СОСТАВИТЬ ПРОГРАММЫ PASCAL 50 БАЛЛОВ

Ольга962579085 [50]

1)
var
a, b:real;

begin
write('Катет A = ');
readln(a);
write('Катет B = ');
readln(b);
writeln('Гипотенуза = ', sqrt(sqr(a)+sqr(b)));
end.

2)
var
a, b:integer;

begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if a=b then writeln('Сумма a и b = ',a+b)
else writeln('Произведение a и b = ',a*b);
end.

3)
var
a, b, c, D, x1, x2: real;

begin
write('Коэффицент A = ');
readln(a);
write('Коэффицент B = ');
readln(b);
write('Коэффицент C = ');
readln(c);
D := sqr(b) - (4 * a * c);
if D > 0 then begin
 x1 := (-(sqrt(D)) - b) / (2 * a);
 x2 := (sqrt(D) - b) / (2 * a);
 writeln('x1 = ', x1);
 writeln('x2 = ', x2);
end
else if D = 0 then begin
 x1 := -b / 2 * a;
 writeln('x = ', x1);
end;
if D < 0 then writeln('Корней нет.');
end.

0 0

4 года назад

Составьте,программу,определяющую,является ли последняя цифра введенного целого числа нечетным числом

stain

var a:integer; 
begin 
writeln('Введите целое число'); 
read(a); 
if ((a mod 10) mod 2=1) then writeln('Последняя цифра числа - нечетная.') 
else writeln('Последняя цифра чиста - четная.'); 
end. 

0 0

4 года назад

Информатика, плес, срочно

peoepo

Блин ну этоде легко!!!

0 0

2 года назад