01110100 01101000 01100101 00100000 01110111 01101111 01110010 01101100 01100100 00100000 01101001 01110011 00100000 01100011 01101111 01101101 01101001 01101110 01100111 00100000 01110100 01101111 00100000 01100001 01101110 00100000 01100101 01101110 01100100 00100000 01101111 01101110 01101100 01111001 00100000 01100010 01101111 01110100 01110011 00100000 01110111 01101001 01101100 01101100 00100000 01100010 01100101 00100000 01101100 01100101 01100110 01110100 скажите первевод

the world is coming to an end only bots will be left

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

для задач необходимо подключить библиотеку cmath, задачи решены на с++, надеюсь решения тебе

Объяснение:

a)    int a, b, c, d; // a меньшее основание б большее . с д - боковые стороны

   cin >> a >> b >> c >> d;

   cout << a+b+c+d << endl;// периметр

   cout << sqrt(c*c-((b-a)/2)*((b-a)/2))*(a+b)/2; // площадь

   return 0;

b)   int x1,y1, x2,y2;

   cin >> x1 >> y1 >> x2 >> y2;

   cout << sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

   return 0;

c)int  x2,y2;

   cin >>  x2 >> y2;

if ( sqrt((x2-0)*(x2-0)+(y2-0)*(y2-0))>7)

cout << "YES";

else cout << "NO";

   return 0;

d)int  a[10],c=0;

   for(int i=0; i<10;i++)

      {cin >> a[i];

      c+=abs(a[i]);}

      cout << c/10;

return 0;