Задать вопрос
21 февраля, 09:54

Помогите найти ошибку

помогиту найти ошибку

program y;

const a=2;

b=4;

c=6;

var a, b, c:

write ('нахождение площади треугольника по тeopeme Герона') ;

begin

s=sqrt p (p-a) (p-b) (p-c) =

p = (a+b+c) / 2

где write

+2
Ответы (1)
  1. 21 февраля, 10:49
    0
    У тебя write после бегина должен идти.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите найти ошибку помогиту найти ошибку program y; const a=2; b=4; c=6; var a, b, c: write ('нахождение площади треугольника по тeopeme ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Где косяк помогите program i_2; const c=2; f=4; g=6; var r: real; begin writeln ('определение площади треугольника по теореми Герона') ; write ('нахождение площади') ; readln (r) ; r; sqrt (p (p-c) (p-f) (p-g)) ; p; (c+f+g) ; 2: end.
Ответы (1)
Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;
Ответы (1)
Где здесь ошибка program n_11; var a, b, c:Real; var d:Real; var x, x1, x2:Real; begin WriteLn ('Расширение квадратного уровнения') ; Write ('Введите коофиценты a, b, c >>') ; ReadLn (a, b, c,) ; d:=b*b-4*a*c;
Ответы (1)
Исправить ошибки в паскале program exp3; const m=5; n=3; type matr = array [1 ... m, 1 ... n] of integer; var m: matr; b, i, j, k : integer; повторно объявленный идентификатор begin clrscr; randomize;
Ответы (1)
Записать в виде обычной математической формулы 1) y:=2*sin (x) * sqrt (x+sqrt (abs (x))) 2) y: = sqrt (sin (x) + sin (sqrt (x))) 3) y: = sqrt (abs (x-1) + sqrt (sin (x))) 4) y: = (5*sin (x) + 4) / 2*15*sin (sqrt (x)) 5) k+15*x / (2*sin (x)) 6) y:=
Ответы (1)