Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
Моделирования, качествами или свойствами, модели
Скорее всего, в задании требуется написать программу. На паскале это будет так:
var s:real; i:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+cos(i);
writeln('s = ',s);
end.
1) ЛИСТ - ДИСК
2) ПЕРО, ГРАММ, А - ПРОГРАММА
3) ПАЛЬМА, НИТЬ - ПАМЯТЬ
4) ФАКЕЛ - ФАЙЛ
#include <iostream>
int main()
{
double x, R = 1;
std::cin >> x;
int i = 1;
do
{
R = (x - i - 1) / (x - i) * R;
++++i;
}
while (i != 63);
std::cout << R;
}<span>
</span>