Ну как это делается... становимся "на уши", отыскивая в интернете пиратскую версию компилятора с языка Турбо Паскаль. Потом отыскиваем оболочку DosBox, в которую втыкаем этот самый турбопаскаль. Поскольку иначе запустить эту древность (на минуточку, это написано было в 1983 году) под Windows 7 просто не получится.
А потом пишем в нем программу. Сдавая, интересуемся у учителя, почему его уровень знаний паскаля остался в 1983 году, когда на дворе скоро 2020-й.
program OakHead;
uses Crt;
var
x, y, a, b : real;
begin
write('Vvedi a, b, x: ');
read(a, b, x);
y := sqrt(abs(x*(a*a+b*b)))/(exp(x)*sin(sqrt(abs(a+b;
writeln(y);
readkey;
end.
2 организовать цикл (i=1)с количеством циклов n-1
3 в теле цикла ввести условие / если (функция выделения первого символа (i)) неравно " "(пробел) И (функция выделения последующего символа (i+1)) равно " " то включаем счетчик r=r+1 /
4 короче нужно искать совпадение символ-пробел, но есть проблема с последним символом если этот символ не пробел то слово не зачтется для этого нужно одно условие если (функция выделения последнего символа (n))неравно " " то r =r+1