//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.
Хоть какие числа будут даны чтоб решать данное уравнение ? Если а и б то алгоритм будет выглядеть так:
a*x+b=0 -> a*x=(-b) -> x=(-b)/a
Полюбому ты эти вопросы взял из книжки, поэтому посмотри тему и ты найдешь свой ответ
Задание 1:
b:= 6/2*1(будет 3) переменная b перезаписалась;
a:= 2*6 + 3×3(будет 21);
задание 1:
ответ 21;
задание 2:
не могу понять что найти(тут просто мы задали формулы, например для переменной s:= pi*r*r, тут как бы просто подставь числа) есть константа pi и значение r)
Думаю немножко помог:)
Один раз клавеатура загрезнилась крошками от хлеба и неработали кнопки а ж э и к но монитор и процесар своими шнурами перевернули и вытряхнули крошки хлеба так они спасли клавеатуру