Гру, на, прямоугольник.
7. Назовите группу слов.
килограмм, сантиметр, градус, минута.​

#include "stdafx.h" 
#include <iostream>
 #include <math.h>
#include<stdio.h>
using namespace std;
 #define PI 3.14159265
int main ()
{
double a;
cout<<"Input a: ";
cin>>a;
cout<<endl;
 if (  (a*cos((78.0)*PI / 180.0 ))<((0.2)*cos ( (81.0) * PI / 180.0 ))  )
{
cout<<"a*cos(78) < 0,2cos(81)"; 
}else
 {
if ((a*cos ( (78.0) * PI / 180.0 ))==((0.2)*cos ( (81.0) * PI / 180.0 )))
{
cout<<"a*cos(78) = 0,2cos(81)";
}else
{
cout<<"a*cos(78) > 0,2cos(81)";
}} 
system("PAUSE");
return 0;}

Var chislo:integer;
proverka:boolean;
begin 
 proverka:=true; 
    read(chislo);   
          repeat     
               if chislo=0 then                 //так как 0 не натуральное число
                 begin
                  proverka:=false; 
                  break;
                  end;
               if (chislo mod 3)>0 then         
                    begin             
                        proverka:=false;           
                        break;       
                    end     
                else chislo:=chislo div 3;   
           until(chislo=0);
    if proverka then WriteLn('Да')
    else WriteLn('Нет');
  readln;
end.