При запуске программа предлагает ввести имя персонажа. 1. Если герой есть в базе, то программа выводит название фильма, в котором есть этот персонаж.
2. Если герой не найден, то печатается: «Я пока не знаю такого персонажа:(».
Программа работает, пока не будет введено «off».

в пятиричной системе каждый следйющий разряд учеличивает число в 5 раз. раз приписали два разряда, получаем: 5 * 5 = 25 

число увеличилось в 25 раз.

например, число 12 в пятиричной системе равно числу 7 у десятичной.

привисываем два нуля: 1200 в пятеричной равно числу 175 в десятичной.

175 : 7 = 25.

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.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c