Где тут ошибка?

Milasik 3 авг. 2020 г., 15:11:40

Я проверила, у меня в паскале все правильно.

Название программы восхитительное : ))).

MikaEpt 27 апр. 2020 г., 10:34:15 | 5 - 9 классы

ЧТО НЕ ПРАВИЛЬНО?

ЧТО НЕ ПРАВИЛЬНО?

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.

Илона8 5 авг. 2020 г., 17:45:38 | 5 - 9 классы

На 6 строчке где условие ошибка : "Ождался знак ; " Везде ставил ошибка все равно есть?

На 6 строчке где условие ошибка : "Ождался знак ; " Везде ставил ошибка все равно есть.

Посмотрите пожалуйста.

Program govno2 ;

var a, b, c : real ;

Begin read(a, b) ; c : = a if b> ; a then c : = b ; write(c)

End.

Nikitaroker555 26 апр. 2020 г., 21:22:54 | 5 - 9 классы

Где здесь ошибка ?

Где здесь ошибка ?

Program Ylia ; var A, B, C : real ; Begin Readln (a, b) if a> ; b ; C1 = ab else C2 = a / b ; writeln (c) ; end.

AvEnTaDoR005 25 сент. 2020 г., 12:43:18 | 5 - 9 классы

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', а ожидалось оператор" Вопрос : в чем ошибка?

Evgenistruts 24 окт. 2020 г., 14:58:35 | 5 - 9 классы

Срочно, нужно выявить ошибки?

Срочно, нужно выявить ошибки.

Program linur ; Var b, R : integer ; x : real ; Begin Write ; readln(b, R, x) ; x : = - (b / R) ; write(’Решение линейного уравнения ; x) ; end.

Darkangelofl 22 авг. 2020 г., 15:28:59 | 10 - 11 классы

Помогите найти ошибку (паскаль) program u1 ; var max1, max2, k : longint ; begin readln (k) ; max1 : = k ; max2 : = k ; repeat readln (k) ; if k> ; max1 then begin max2 : = max1 ; max1 : = k ; until?

Помогите найти ошибку (паскаль) program u1 ; var max1, max2, k : longint ; begin readln (k) ; max1 : = k ; max2 : = k ; repeat readln (k) ; if k> ; max1 then begin max2 : = max1 ; max1 : = k ; until k< ; > ; 0 ; writeln (max2) ; end ; end.

Выводит ошибку в 12 строчке "встречено until, а ожидалось ; ".

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку 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 ;

Sashakolesnsk2 20 дек. 2020 г., 18:01:57 | 10 - 11 классы

Найди ошибку в программе Program a1 ; Var a : integer ; b : real ; begin a : = 100 ; b : = 2, 5 ; writeln (a, b) ; a : = a + b / 3?

Найди ошибку в программе Program a1 ; Var a : integer ; b : real ; begin a : = 100 ; b : = 2, 5 ; writeln (a, b) ; a : = a + b / 3.

5 ; writeln (a) ; end.

Galina50286 13 дек. 2020 г., 16:46:22 | 5 - 9 классы

Найдите ошибки в следующих программах :Program int_r ;Var a, x : integer ;b, c : real ;Begina : = 10 ;b : = 5?

Найдите ошибки в следующих программах :

Program int_r ;

Var a, x : integer ;

b, c : real ;

Begin

a : = 10 ;

b : = 5.

2 ;

x : = b div 2 ;

c : = round(x) ;

End.

Program int_r1 ;

Var a, c : integer ;

b, d : real ;

Begin

a : = 25 ;

b : = a / 2 ;

c : = sqr(a) ;

d : = a mod 10 ;

End.

Dimka1945 10 дек. 2020 г., 05:39:36 | 5 - 9 классы

Pascal abcvara, c, d : real ;b : char ;begin?

Pascal abc

var

a, c, d : real ;

b : char ;

begin

.

If b = ' + ' then

d : = a + b ;

.

Выдает ошибку "нельзя преобразовать тип string к real"

что делать?