Получите из слова тестирование слово тостер.
pascal abc​

ответ:

код к : «из слова тестирование сделать слово товар»

1.var s: string;

2.begin

3.s: ='тестирование';

4.delete(s,1,2);

5.delete(s,5,2);

6.writeln(s);

7.readln

8.end.

объяснение:

думаю так1) налить в кувшин 3 л, перелить в емкость,где будет 7 л

2) еще раз налить туда 3 л

3) налить 3 л воды налить в кувшин для 8 л, потом еще раз для 8 литров и еще раз(3 раза) на третьем разе останется 1 л,этот л и доливаем в кувшин с 7 л 

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.