1. 1) 1000111_2+1001101_2=10010100_2
2)10010100_2-10011_2=10000001_2
2.1) 111_2*101_2=100011_2
2)100011_2-111_2=11100_2
3)11100_2/10_2= 1110_2
#include<iostream>
using namespace std;
int main()
{
double d;
cin>>d;
cout<<"\nS="<<2*3.14*(d/4); // если нужна площадь , то заменить на cout<<"\nS="<<3.14*(d/4)*(d/4);
}
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
<h2>518</h2><h2>5</h2><h2>1</h2><h2>8</h2>