Pascal ABC
__________
Var
a,b,n:integer;
Begin
Readln(n);
While (a<>n) or (b<>n) do begin
Read(a);
if a=n then write('1') else begin
Read(b);
if b=n then write('2');
end;
end;
end.
#include <iostream>
int main()
{
using namespace std;
double x, y;
cout << "Enter x coordinate: ";
cin >> x;
cout << "Enter y coordinate: ";
cin >> y;
if (((y >= x / 3.0) && (y <= x * 3.0) && (y >= x * 3.0 - 8) && (y <= x / 3.0 + 8.0 / 3.0))
|| ((y <= x / 3.0) && (y >= x * 3.0) && (y <= x * 3.0 + 8) && (y >= x / 3.0 - 8.0 / 3.0)))
cout << "yes";
else
cout << "no";
cout << endl;
return 0;
}
3) цифры кол во
4) кругов в цифрах, например в 8 два круго
Остальное незнаю
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ReadInteger;
Println(a>0?a*a:a*a*a*a);
end.
Uses crt;
var a,sum:integer;
begin
sum:=0;
repeat
read(a);
if (a mod 6=0) or (a mod 11=0) then sum:=sum+a;
until a=0;
writeln(sum);
<span>end.</span>