В кондитерской для детского праздника заказали булочки с разными начинками: с клубникой, маком, корицей, сгущёнкой. В кондитерской всю готовую продукцию упаковывают в бумагу разных цветов: синюю, жёлтую, зелёную. Булочек с клубникой получилось 2 зелёных, 2 жёлтых и 6 синих упаковок.
Булочек с маком — 6 синих, 1 жёлтая, 4 зелёных упаковок.
Для булочек со сгущёнкой потребовалось 6 жёлтых и 1 зелёная упаковка.
Булочек с корицей 2 синих и 1 зеленая упаковка.
В зелёную бумагу можно заворачивать 14 булочек, в синюю — 28, в жёлтую — 15.
Сколько всего булочек сделала кондитерская, и сколько булочек было уложено в упаковку каждого вида?

ответ: булочек(-ки) испекла кондитерская, в зелёную бумагу упаковали булочек(-ки), в синюю булочек(-ки) и в жёлтую булочек(-ки).
надо!

р в квадрате так

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.

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.

из всех монет в меньшей стороне всегда присутствует v6,

в большей стороне ни одна монета не повторяется во всех трех взвешиваниях, значит монета под номером 6 фальшивая и она весит меньше подлинных