Question

Срочно даю 25 баллов!!!!!!Задания 2-3!Помогите мне сегодня нужно здать по информатике П/А!!!!Помогите прошу вас,специальная программа PascalABC.NET,у кого такая есть помогите пожалуйста не хочу 2 получить.... Желательно чтобы был скрин из этой программы и решение правильное! Хотя бы на 4...

Answer 1

Объяснение:

1)

Program zero;

Var a:integer;

Begin

Whiteln('Введите число!!! ');

Readln(a);

If a mod 2 > 0 then

Whiteln('Число нечётное!!! ')

else Whiteln('Число чётное!!! ');

Readln

End.

2)

Program one;

Var x:Integer; y:Real;

Begin

Whiteln('Введите число: ');

Readln(x);

If x<0 then

y:=1/Sqr(x)

else y:=Sqr(Sqr(x));

Whiteln('Ответ - ', у);

Readln

End.

3)

Program two;

Var a, b, c:Integer;

Begin

Whiteln('Введите значение концов отрезка:');

Readln(a, b);

If (c>=a) and (c<=b) then

Whiteln('Число принадлежит отрезку!!! ')

else Whiteln('Число не принадлежит отрезку!!!');

Readln

End.