Регистрация
andreyschibria
02.02.2021 08:00
Информатика
Есть ответ 👍

Найдите переменную
1) a := 30;
b := 14;
c := 3;
a := a – 2 * b;
if ((a > b) or (a > c) and (c > b)) then
begin
a := b + 2 * a;
c := c + 2 * a;
end
else
begin
a := b - 2 * a;
c := c + 4 * a;
end;
2) a := 30;
b := 6;
a := a * 3 / b;
if a > b then
begin
c := 2 * a – 5 * (b + 2);
c := 2 * c + 5 * (b + 2);
end
else
c := 2 * a + 5 * (b + 2);
3)
a := 22;
b := 3;
a := - 2 * b + a / 2;
c := 7;
if ((a < b) or (a>=c)) then
c := 4 * b – 3 * a
else
c := 3 * a + 4 * b;
4)a := 30;
b := 6;
a := a / 2 * b;
if a > b then
c := a - 3 * b
else
c := a + 3 * b;

264
347
Посмотреть ответы 1

Ответы на вопрос:

raydin
raydin
4,4(65 оценок)

Program pr;

uses crt;

Var a, b, c, y:real;

Begin

Writeln('Введите a, b, c');

readln(a, b, c);

y:=exp(3*ln(b))+sqrt(c)-sqrt(a);

Writeln('y=', y);

readln;

end.

Объяснение:

Популярно: Информатика