var
x,y:real;
begin
readln(x,y);
if (y <= 7) and (y<>x*x) and (sqrt(sqr(x)+sqr(y))<=7) then
writeln("принадлежит")
else
writeln("не принадлежит");
readln;
end.
Если не ошибаюсь. А могу.
Var t:integer;
begin
t:=0;
repeat
t:=t+1;
t:=t*3;
until t>13;
writeln('Vyvod ',t);
<span>end.</span>
Ответ:
1) ...для сохранения файла под новым именем и/или с другим расширением
2) охватывает местные компьютеры
Язык С++.
#include <iostream>
using namespace std;
int main()
{
int l,s=0,pro=1;
for(s=0;s<250; )
{
cin>>l;
s=s+l;
pro=l*pro;
};
cout<<pro;
return 0;
}
<span>//пример использования функции strlen
#include <iostream>
#include <cstring> // для strlen
<span>int main()
</span>{<span>
char input[256];</span><span>
std::cout << "Введите строку: ";</span><span>
std::cin >> input;</span><span>
std::cout << "Строка " << input << " содержит " << strlen(input) << " символов\n";</span><span>
return 0;</span><span>
}</span></span>