Решение задач из главы 2

задачи из главы 2

3. Пусть у вас есть абстрактная процедура с именем abc(), запишите её вызов в теле программы, передав литералы соответствующего типа (для каждого варианта), если она принимает на вход :
четыре аргумента - первые два целочисленные, и третий символьный и четвертый строковый.
два разных аргумента символьного типа
пять аргументов - первые два строковое, один числовой и два символьных
три аргумента: два строковых и один числовой

begin
  abc(5, -10, '#', 'This is a string literal.'); //первые два целочисленные, и третий символьный и четвертый строковый
  abc('#', '/');//два разных аргумента символьного типа
  abc('This is a string literal 1.', 'This is a string literal 2.', 758, '=', ' ');//первые два строковое, один числовой и два символьных
  abc('The first string literal', 'The second string literal', -999);//два строковых и один числовой
end. 

6. Выведите на экран число 2 как числовой литерал
7. Выведите на экран число 2 как символ
8. Выведите на экран 22 как число
9. Выведите на экран 222 как строку
10. Выведите на экран 222 -- первую цифру как число, а остальное как строку.

begin
   write(2);//число 2 как числовой литерал
   write('2');//число 2 как символ
   write(22);//число 22 как число
   write('222');//число 222 как строку
   write(2, '22');//выводит 222 – первая цифра как число, остальные как строка
end.

11. Пусть нам требуется вывести на экран строку (ту же, что мы рассматривали выше в примерах): b = 5, тогда b - 2 = три

begin
   writeln('b = 5, тогда b - 2 = три');//литерал строковый
   writeln('b = 5, тогда b - 2 = ', 'три');//число 2 как символ
   writeln('b = 5, тогда b - 2 = тр', 'и');//число 22 как число
   writeln('b = ', 5, ', тогда b ', '- 2', ' = три');//число 222 как строку
end.

12. В примерах выше мы выводили на экран робота, выведете его же, но антенну (для которой используется точка с запятой) выведете отдельной командой как символьный литерал, всё же остальное любым способом.

begin
  write('  ');
  writeln(';');
  writeln(' ["]');
  writeln('/[_]\');
  writeln(' ] [');
end.

13. Выведите хвост котика с помощью отдельных символов, а всё остальное как угодно.

begin
  write('\');
  writeln('    /\ ');
  write(' ');
  write(')');
  writeln('  ( *)');
  write(' ');
  write('(');
  writeln('  /  )');
  write('  ');
  write('\');
  writeln('(__)|');
end.