Program formula;
var y,x,M:real;
begin
readln(y,x);
M:=cos(2*y)+3.6*exp(x);
write('M=', M);
<span>end.</span>
<span>Волшебство первой фразы заключается в том, что она вмещает в себя все имеющиеся в русском языке глухие согласные. Вторая и третья напоминают о том, что шипящие бывают мягкие и твердые, в одной собраны мягкие, в другой – твердые.</span>
ну вроде бы так, если все верно, то отметь как лучший ответ, буду благодарна
есть несколько программ, и все они должны подойти, смотри картинки
k:=1;
for i:=1 to length(s) do
if s[i]=' ' then k:=k+1;
Количество слов на 1 больше чем пробелов.
var
s:string;
i,r:integer;
begin
readln(s); //ввод строки
i:=1;
while i<=length(s) do begin
if s[i]=' ' then r:=r+1;
i:=i+1;
end;
writeln(r+1);
readln;
end.
Первое: https://pastebin.com/T5FRuLER
Второе: https://pastebin.com/0GQ2e9Fd