Дан фрагмент таблицы «Товар на складе». Введи данные в MS Excel и вычисли стоимость всего товара на складе.

A B
1 Товар Цена за 1 шт. (руб.)
2 Пальто 6112,1
3 Куртка 3532
4 Шуба 27180
5 Брюки 1438
6 Платье 6616,46
7 Рубашка 1077
8 Костюм (мужской) 10959

ответ:
руб.

1:228Руб

2:6992руб

3: 3312

4 56380

5 1200

6 2300

7 920

8 13020

бег - баг - шаг

море - горе - гора - пора - пара - кара - каша - даша - душа - суша

миг - маг - мак - чак   - чек - век

бант - кант   - карт - корт - кора - коса

шар - пар - паб - раб - руб - куб

муха - мура - тура - тара - пара - парк - паук - паут - плут - плот - слот - слон

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.