Program z1;
var st:string;
begin
writeln('Введите строку');
readln(st);
while (pos(' ',st) <> 0) do
begin
delete(st, pos(' ',st), 1);
end;
writeln(st);
readln;
end.
Последнее, СОДА
Там в начале 000 - это однозначно С, потом 111 - это О
Потом 10 или 100 - это может быть либо Д, либо Н, но если Н, тогда остается 001 - такого кода нет, значит Д
Тогда остается 01 и это А
var
i,j,s,n,max:integer;
a:array[1..5,1..5]of integer;
begin
for i:=1 to 5 do
begin
s:=0;
for j:=1 to 5 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
s:=s+a[i,j];
end;
if s>max then
begin
n:=i;
max:=s;
end;
writeln;
end;
writeln;
write('Строка ',n,': ');
for j:=1 to 5 do
write(a[n,j],' ');
<span>end.</span>
<span>1.В кастрюлю налить кефир.
2.</span><span>Вылить молоко
3.</span><span>Добавить сливки.
</span><span>4.Вбить яйца.
</span><span>5,Положить соль.
</span><span>6,Всыпать сахар.
</span><span>7,Всыпать разрыхлитель.
</span><span>8.Добавить муку. Тесто по консистенции должно напоминать жидкую сметану.
</span>9.Все как следует перемешать и оставить на час при комнатной температуре, затем убрать на ночь в холодильник<span>. Если планируете выпекать сразу, дайте тесту постоять минут 15-20 и приступайте к выпечке.
</span><span>10,Сковороду накалить, смазать маслом
</span><span>11,Выливая небольшое количество теста распределять его по всей поверхности сковороды.
</span><span>12,Выпекать с двух сторон до золотистого цвета, буквально по полминутки.
</span><span>13,Готовые блины складываем стопкой, промазывая каждый блин сливочным маслом.
</span><span>14,Подать блины к столу со сметаной, вареньем, медом или сгущенкой.</span>
Персональный комп. бывает-Настольным, Переносным, Наладонным.