Question

Решить Задачи в Паскале!! 40 баллов! Срочно

Answer 1

1).

program undm;

uses

crt;

var

i, a, b: real;

begin

writeln('Введите сначала первое число , затем второе:');

readln(a, b);

if a < b then

a := a * 2

else

a := b * 2;

writeln(a);

readln;

end.

2).

program yotx;

uses

crt;

function yotx(x: real) : real;

begin

if x <= 1 then

yotx := 0

else

yotx := 1 / (x + 6);

end;

var

x: real;

begin

writeln('Введите x:');

readln(x);

writeln(yotx(x));

readln;

end.

3).

program pp;

uses

crt;

var

x: real;

begin

writeln('Введите x:');

readln(x);

if (x >= 2) and (x <= 3) then

writeln('X принадлежит промежутку')

else

writeln('X не принадлежит промежутку');

readln;

end.

4).

program co;

uses

crt;

var

ocenka: integer;

begin

writeln('Введите оценку:');

readln(ocenka);

case ocenka of

1: writeln('Плохо');

2: writeln('Неудовлетворительно');

3: writeln('Удовлетворительно');

4: writeln('Хорошо');

5: writeln('Отлично') else writeln('Ошибка! Введите число от 1 до 5');

end;

readln;

end.