Ответ:
Объяснение:
program PrevousAndNext;
var x: integer;
begin
WriteLn('Ввод');
ReadLn(x);
WriteLn ('Следующее число после ', x ,' это число ',x+1 );
WriteLn ('Предыдущее число от ', x ,' это число ',x-1 );
end.
А) 212.148.178.75
б) 190.163.98.42
Вроде так.
{ Pascal }
PROGRAM Calendar(INPUT, OUTPUT);
VAR
Num: INTEGER;
BEGIN
WRITE('Введите номер месяца: ');
READ(Num);
CASE Num OF
1: WRITELN('Январь');
2: WRITELN('Февраль');
3: WRITELN('Март');
4: WRITELN('Апрель');
5: WRITELN('Май');
6: WRITELN('Июнь');
7: WRITELN('Июль');
8: WRITELN('Август');
9: WRITELN('Сентябрь');
10: WRITELN('Октябрь');
11: WRITELN('Ноябрь');
12: WRITELN('Декабрь');
END;
END.
Вторая:
Var
x:real;
Begin
Read(x);
if x<=0 then write('y = 0')
else if x<= 1 then write('y = ',x*x-x)
else write('y = ',x*x - sin(Pi*x*x -1))
End.
Третья:
Var
S1,S2:real;
Begin
Write('Площадь круга = ');Read(S1);
Write('Площадь квадрата = ');Read(S2);
S1:=sqrt(S1/Pi);
S2:=sqrt(S2);
if S1<=S2/2 then write('уместится')
else write('не уместится');
End.