1.Напишите программу , которая определяет по введенной градусной мере развернуты...

July 2022 1 2 Report

1.Напишите программу , которая определяет по введенной градусной мере развернутый угол или нет.
2.Для данного x вычислить: если x>5, то возвести число в квадрат; если x<5, то возвести в куб.
ДЛЯ ПАСКАЛЯ!!!

Answers & Comments

ManulTheLiar Program programma1;
Uses crt;

var a: real;

begin
clrscr;
       write('Градусная мера угла a = ');
       readln(a);
if a>=0 then
   begin
   if a<>180 then writeln ('Угол не является развернутым')
   else writeln ('Угол является развернутым');
   end
   else
   writeln('Угол не может быть отрицательным');
end.

Program programma2;
Uses crt;

var x: real;

begin
clrscr;
       write('x = ');
       readln(x);

   if X>5 then x:=x*x;
   if X<5 then x:=x*x*x;

   writeln('Ответ: ',x);
end.

1 votes Thanks 2

domashnyaya rabota cikl fordlya paskalya 1sostavit programmukotoraya vyvodit na

Answer

Answers & Comments

domashnyaya rabota cikl fordlya paskalya 1sostavit programmukotoraya vyvodit na

рекомендуемые вопросы

Helpful Links

Helpful Social