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.
