Я РЕШИЛ УРАВНЕНИЕ ПОД НОМЕРОВ 1, ЕСЛИ НУЖНО РЕШИТЬ ДРУГИЕ ПИШИ В ЛИЧКУ
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>
носок мозоль георгин помидор - мозоль
<em>озимь цитадель фланель панцирь - панцирь</em>
<u>подстаканник подорожник подснежник подлокотник .- подорожник</u>
Ответ:
ЭТО НЕ СЛИТНЫЙ ПРЕДЛОГ . Они пишутся отдельно.
например.
"Если" я не получу хорошую оценку , "то" будет сильно обидно .
(пиши только без кавычек )
//PascalABC.NET 3.2 сборка 1318
Var
s:array[1..60] of char;
i,j,len:integer;
begin
len:=60;
for i:=1 to 60 do
read(s[i]);
i:=1;
while(i<=len-3) do
begin
if (s[i]='m') and (s[i+1]='a') and (s[i+2]='m') and (s[i+3]='a') then
begin
s[i]:='d';
s[i+1]:='e';
s[i+2]:='d';
for j:=i+3 to len-1 do
s[j]:=s[j+1];
dec(len);
end;
inc(i);
end;
for i:=1 to len do
write(s[i]);
end.
Компьютерное управление техническими устройствами происходит в процессе
расчетов по математическим моделям в режиме реального времени.