Question

Информатика, Паскаль
2 задачи под номером 4

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var s:=ReadlnString('Введите дату в формате дд.мм.гг:');
  var a:=s.Replace('.',' ').ToIntegers;
  var m:=Arr('января','февраля','марта','апреля','мая','июня',
      'июля','августа','сентября','октября','ноября','декабря')[a[1]-1];
  Println(a[0],m,a[2])
end.

Пример
Введите дату в формате дд.мм.гг: 20.05.2018
20 мая 2018 

№2

begin
  var (x,a):=Readreal2('Введите x и a через пробел:');
  var y:real;
  if x<a then y:=0
  else
    if x>a then y:=(x-a)/(x+a)
    else y:=1;
  Writeln(y)
end.

Более современный вариант:
begin
  var (x,a):=Readreal2('Введите x и a через пробел:');
  var y:=x<a ? 0.0 : x>a ? (x-a)/(x+a) : 1.0;
  Writeln(y)
end.