Язык програмирования - pascal abc дано натуральное число n и последовательность из n элементов. требуется вывести эту последовательность в обратном порядке. примечание. в программе запрещается объявлять массивы и использовать циклы (даже для ввода и вывода). входные данные в первой строке входных данных содержится натуральное число n (n ≤ 103). во второй строке через пробел идут n целых чисел, по модулю не превосходящих 1000, – элементы последовательности. выходные данные требуется вывести заданную последовательность в обратном порядке. примеры входные данные 2 3 4 выходные данные 4 3

Pascalabc.net 3.4.2, сборка 1837 от 11.10.2018 внимание! если программа не работает, обновите версию!

begin

  readseqinteger(readlninteger).reverse.println

end.

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

 

Буквы. ударные или безударные слоги.  сам знаки могут выглядеть как угодно, например, точка-тире.   на ум приходят пдд. напр, на светофоре знак красного человечка "стой", зеленого "иди" и т.д.