М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
fargustyana
fargustyana
11.07.2020 10:19 •  Информатика

Var a,c,n,i,p: real; begin readln(c); a: =sin(c)-2/(sqr(c)*c); if a> =0 then writeln(a); else for n: =1 to 28 do p: =(1+c)/n; writeln(p); end. в чем ошибка? дано с. вычислить: а = sinс- . если а ≥ 0, то напечатать а. если а < 0, то вычислить р = , где n – натуральное число, изменяющееся от 1 до 28. результат напечатать.

👇
Ответ:
vikylyalol
vikylyalol
11.07.2020
Точка с запятой после writeln(a) лишняя
4,7(72 оценок)
Открыть все ответы
Ответ:
TheEnder
TheEnder
11.07.2020

===== PascalABC.NET =====

type

 Node = auto class

   public

      data: integer;

     left, right: Node;

 end;    

     

procedure Add(var root: Node; x: integer);

begin

 if root = nil then

 begin

   root := new Node(x, nil, nil);

   exit

 end;

 if root.data > x then

   Add(root.left, x)

 else if root.data < x then

   Add(root.right, x)

end;

     

procedure Postfix(root: Node);

begin

 if root = nil then exit;

 Postfix(root.left);

 Postfix(root.right);

 Print(root.data)

end;

 

begin

 var s := Seq(51, 25, 73, 15);

 var R: Node;

 R := nil;

 foreach var x in s do

   Add(R,x);

 Add(R, 31);

 Add(R, 93);

 Postfix(R);

end.


с заданием по PASCAL! Очень Выручайте
с заданием по PASCAL! Очень Выручайте
с заданием по PASCAL! Очень Выручайте
4,7(48 оценок)
Ответ:
starikoe
starikoe
11.07.2020

===== PascalABC.NET =====

type

 Node = auto class

   public

      data: integer;

     left, right: Node;

 end;    

     

procedure Add(var root: Node; x: integer);

begin

 if root = nil then

 begin

   root := new Node(x, nil, nil);

   exit

 end;

 if root.data > x then

   Add(root.left, x)

 else if root.data < x then

   Add(root.right, x)

end;

     

procedure Postfix(root: Node);

begin

 if root = nil then exit;

 Postfix(root.left);

 Postfix(root.right);

 Print(root.data)

end;

 

begin

 var s := Seq(51, 25, 73, 15);

 var R: Node;

 R := nil;

 foreach var x in s do

   Add(R,x);

 Add(R, 31);

 Add(R, 93);

 Postfix(R);

end.


с заданием по PASCAL! Очень Выручайте
с заданием по PASCAL! Очень Выручайте
с заданием по PASCAL! Очень Выручайте
4,4(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ