Информатика | 5 - 9 классы
Program TELESHOP ; var x : real ; begin writeln ('.
') ; write ('.
') ; write ('.
') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.
') ; writeln ('.
') ; end else begin writeln ('.
') ; end ; * else begin writeln ('.
') ; end end.
* - место ошибки.
"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?
ЧТО НЕ ПРАВИЛЬНО?
ЧТО НЕ ПРАВИЛЬНО?
Program p_1 ;
var x, y : real ;
begin
read(x) ;
if 0< ; x< ; 2 then begin y : = sqr(cos(x)) ;
else begin y : = 1 - sin(sqr(x)) ;
end ;
writeln(y) ;
end.
Найдите ошибку пожалуйста Program percentage ; uses crt ; var a, b, c, d : real ; begin writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ?
Найдите ошибку пожалуйста Program percentage ; uses crt ; var a, b, c, d : real ; begin writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ.
Искомую переменную обозначтье (0).
') ; write('Введите переменную a - ') ; read(a) ; write('Введите переменную b - ') ; read(b) ; write('Введите переменную c - ') ; read(c) ; write('Введите переменную d - ') ; read(d) ; writeln ; if a = 0 then begin a : = c * b / d ; writeln(' Ответ : ', a) ; end ; if b = 0 then begin b : = a * d / c ; writeln(' Ответ : ', b) ; end ; if c = 0 then ; begin c : = a * d / b ; writeln(' Ответ : ', c) ; end ; if d = 0 then begin d : = c * b / a ; writeln(' Ответ : ', d) ; end ; writeln('Спасибо за использование программы!
') ; end.
Program lab1 ; varx, y : real ; begin writeln('введите x') ; readln(x) ; begin if (abs(x)< ; = 1) then y : = sqr(x) - 1 ; else if(abs(x)> ; 1) and (abs(x)< ; = 2) then y : = 2 * x - 1 ; else if ?
Program lab1 ; var
x, y : real ; begin writeln('введите x') ; readln(x) ; begin if (abs(x)< ; = 1) then y : = sqr(x) - 1 ; else if(abs(x)> ; 1) and (abs(x)< ; = 2) then y : = 2 * x - 1 ; else if (abs(x)> ; 2) then y : = exp(5 * ln(x)) - 1 ; end ; writeln ('y = ', y) ; End.
Где ошибка в программе?
Пишет : : Встречено 'else', а ожидался оператор.
Нужно найти у, при определенных значениях х.
Program Dr ; Var a, b, c, D, x1, x2 : Real ; Begin D : = b * b - 4 * a * c ; Read(a, b, c) ; if D< ; 0 Then Writeln ('корней нет') else if D = 0 then begin x : = - b / (2 * a) : Writeln(x) ; end ; e?
Program Dr ; Var a, b, c, D, x1, x2 : Real ; Begin D : = b * b - 4 * a * c ; Read(a, b, c) ; if D< ; 0 Then Writeln ('корней нет') else if D = 0 then begin x : = - b / (2 * a) : Writeln(x) ; end ; else begin x1 : = ( - b - SQRT(D)) / (2 * a) ; x2 : = ( - b + SQRT(D)) / (2 * a) ; Writeln(x1) ; Writeln(x2) ; end ; end.
Program1.
Pas(9) : Встречено 'else', а ожидался оператор.
В чём проблема?
Program yura ; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2 = 0 then writeln(x * x + (sqrt2)) else writeln(x * x * x + x) end?
Program yura ; var x : integer ; begin writeln ('Напишите x') ; readln (x) ; if x mod 2 = 0 then writeln(x * x + (sqrt2)) else writeln(x * x * x + x) end.
В чём ошибка?
Где здесь ошибка ?
Где здесь ошибка ?
Program Ylia ; var A, B, C : real ; Begin Readln (a, b) if a> ; b ; C1 = ab else C2 = a / b ; writeln (c) ; end.
Program mimi ;var a, b : integer ;beginreadln (a) ;if 99 < ; a < ; thenwriteln('Неверно')elseif a> ; 999 thenwriteln('Неверно')elsewriten('Верно')end?
Program mimi ;
var a, b : integer ;
begin
readln (a) ;
if 99 < ; a < ; then
writeln('Неверно')
else
if a> ; 999 then
writeln('Неверно')
else
writen('Верно')
end.
Выдаёт : pas(5) : Ожидался идентификатор
Что не так?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;
Program vika ; var x, y : integer ; begin writeln ('Ведите x') ; readln (X) ; writeln ('Ведите y') ; readln (y) ; if (x> ; 0) and (y> ; 0) then writeln (' В 1') else (x> ; 0) and (y< ; 0) then?
Program vika ; var x, y : integer ; begin writeln ('Ведите x') ; readln (X) ; writeln ('Ведите y') ; readln (y) ; if (x> ; 0) and (y> ; 0) then writeln (' В 1') else (x> ; 0) and (y< ; 0) then writeln ('В 4') if (x< ; 0) and (y> ; 0) then writeln ('Во 2') else (x< ; 0) and (y< ; 0) then writeln ('В 3') ; end.
Пишет что Встречено 'and', а ожидалось ' ; ' где ошибка?
Буду очень благодарна.
Помогите пожалуйста, cрочно?
Помогите пожалуйста, cрочно!
Составить блок - схему.
Program primer6 ;
uses crt ;
x : integer ;
begin
clrscr ;
readln(x) ;
if x mod 2 = 0 then writeln ('да')
else writeln ('нет')
end.
На этой странице сайта размещен вопрос Program TELESHOP ; var x : real ; begin writeln ('? из категории Информатика с правильным ответом на него. Уровень сложности вопроса соответствует знаниям учеников 5 - 9 классов. Здесь же находятся ответы по заданному поиску, которые вы найдете с помощью автоматической системы. Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по заданной теме. На этой странице можно обсудить все варианты ответов с другими пользователями сайта и получить от них наиболее полную подсказку.
Ответом являются комментарии в коде.