Даны величины переменных a, b,c, d. требуется перенести значения переменных, следующим образом: в d сумму значений переменных с и в, в переменную а поместить значение из в, в в значение из с, в с значение из d решение в паскале

Var a, b, c, d: integer;       t_a, t_b, t_c, t_d: integer; {данные переменные будут использоваться для хранения изначальных значений a, b, c, d} begin   readln(a, b, c, d);   t_a : = a;   t_b : = b;   t_c : = c;   t_d : = d;   d : = t_c+t_b;   a : = t_b;   b : = t_c;   c : = t_d; 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.

 

b) 9 лет

2020=4

2011=4