Информатика | 5 - 9 классы
В одиннадцатой строке пишет "Встречно else, а ожидалось ; ", но весь прикол, что если я поставлю туда ; то тогда он напишет "Встречно else, а ожидался оператор!
Uses crt ; var a, b, c : integer ; begin writeln ('Что вы хотите сделать?
') ; writeln ('1 - сложить 2 - отнять 3 - разделить 4 - умножить') ; readln (c) ; clrscrn ; if c = 1 then read (a, b) ; writeln (a + b) else if c = 2 then read (a, b) ; writeln (a - b) else if c = 3 read (a, b) ; writeln (a / b) else if c = 4 ; read (a, b) ; writeln (a * b) ; else write ("Так, стоп, че за фигня?
Где то тут меня надурили.
") ; end.
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.
В чём ошибка?
Даны 3 стороны треугольника АВС - напечатать какой имеет вид треугольник?
Даны 3 стороны треугольника АВС - напечатать какой имеет вид треугольник.
Проверьте где у меня ошибки : var
a, b, c : integer ;
begin
write('введите a = ') ; readln(a)
write('введите b = ') ; readln(b)
write('введите c = ') ; readln(c)
if(a = b)and(b = c)then
writeln('равносторонний')
else
if (a = b)or(b = c)or(a = c)then
writeln('равнобедренный')
else
writeln('разносторонний')
end.
Составить блок схему :var a, b, c : integer ;Beginread(a, b, c) ; if (a> ; b) then a : = a else a : = b ;if (a> ; c) then a : = a else a : = c ;writeln(a) ;End?
Составить блок схему :
var a, b, c : integer ;
Begin
read(a, b, c) ; if (a> ; b) then a : = a else a : = b ;
if (a> ; c) then a : = a else a : = c ;
writeln(a) ;
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 TELESHOP ; var x : real ; begin writeln ('?
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 primer ; var a, b : integer ; wrateln : ; readln (a, b) ; if a> ; b then writeln(a) else writeln (b) ; end?
Что не так в программе в конце должен вывести какое число больше program primer ; var a, b : integer ; wrateln : ; readln (a, b) ; if a> ; b then writeln(a) else writeln (b) ; end.
Var a, b, c : real ; begin read(a, b) ; writeln ('введите2 числа') var(a> ; b) do c : = a / b else c : = b / a writeln('частное = 'c) end?
Var a, b, c : real ; begin read(a, b) ; writeln ('введите2 числа') var(a> ; b) do c : = a / b else c : = b / a writeln('частное = 'c) 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.
Вы открыли страницу вопроса В одиннадцатой строке пишет "Встречно else, а ожидалось ; ", но весь прикол, что если я поставлю туда ; то тогда он напишет "Встречно else, а ожидался оператор?. Он относится к категории Информатика. Уровень сложности вопроса – для учащихся 5 - 9 классов. Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие ответы по интересующей теме. Чтобы получить наиболее развернутый ответ, можно просмотреть другие, похожие вопросы в категории Информатика, воспользовавшись поисковой системой, или ознакомиться с ответами других пользователей. Для расширения границ поиска создайте новый вопрос, используя ключевые слова. Введите его в строку, нажав кнопку вверху.
Uses crt ;
var a, b, c : integer ;
begin clrscr ; writeln('Что вы хотите сделать?
') ; writeln('1 - сложить 2 - отнять 3 - разделить 4 - умножить') ; readln(c) ; if c = 1 then begin read(a, b) ; writeln(a + b) end else if c = 2 then begin read(a, b) ; writeln(a - b) end else if c = 3 then begin read(a, b) ; writeln(a / b) end else if c = 4 then begin read(a, b) ; writeln(a * b) ; end else write('Так, стоп, че за фигня?
Где то тут меня надурили.
') ; readkey
end.
Но короче и понятнее это написать так :
uses crt ;
var a, b, c : integer ;
begin ClrScr ; Writeln('Что вы хотите сделать?
') ; Write('1 - сложить 2 - отнять 3 - разделить 4 - умножить') ; Readln(c) ; if (c > ; = 1) and (c < ; = 4) then begin Write('Введите через пробел два натуральных числа : ') ; Read(a, b) ; case c of 1 : Writeln(a + b) ; 2 : Writeln(a - b) ; 3 : Writeln(a / b) ; 4 : Writeln(a * b) end ; end else Write('Так, стоп, че за фигня?
Где то тут меня надурили.
') ; ReadKey
end.