ну вроде бы так, если все верно, то отметь как лучший ответ, буду благодарна
есть несколько программ, и все они должны подойти, смотри картинки
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.
Var a,b:real;
begin
write('Введите катеты: ');
read(a,b);
writeln;
write('Гипотенуза = ',sqrt(sqr(a)+sqr(b)):0:2);
end.
1) int main(){
cin >> n;
i:=0;
while(i < n){
i++;
cout >> i*i<<"\n";
}
return 0;
}
2)
cin >> n;
s = 0;
while(n > 0){
if(n % 10 == 1) s++;
n/=10;
}
cout << s;
return 0;
}