Pascal ABC
Var
A:integer;
Begin
Write('A = ');Read(A);
Write(A div 10,'+',A mod 10,' = ',(A div 10)+(A mod 10))
End.
Информационный вес символа этого алфавита =3 бит
Условие попадания точки в полукруг можно записать в виде
#include <iostream>
using namespace std;
int main(){
float x,y,R;
cout<<"Vvedite a,b,R\n";
cin>>x>>y>>R;
if (x>=0 && x*x+y*y<=R*R)
cout<<"\nPopadaet\n";
else
cout<<"\nNe popadaet\n";
}
Тестовое решение:
Vvedite a,b,R
3
5
7
Popadaet
--------------------------------
Process exited after 15.45 seconds with return value 0
Для продолжения нажмите любую клавишу . . .
Vvedite a,b,R
4
-2
3
Ne popadaet
--------------------------------
Process exited after 27.79 seconds with return value 0
Для продолжения нажмите любую клавишу . . .