Задать вопрос
22 июня, 01:51

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

(x0) then writeln ('Во 2')

else

(x<0) and (y<0) then writeln ('В 3') ;

end.

пишет что

Встречено 'and', а ожидалось '; '

где ошибка? Буду очень благодарна

+4
Ответы (1)
  1. 22 июня, 05:33
    0
    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

    if (x>0) and (y<0) then writeln ('В 4') ;

    if

    (x0) then writeln ('Во 2') ;

    else

    if (x<0) and (y<0) then writeln ('В 3') ;

    end.

    немного исправил.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Program vika; var x, y : integer; begin writeln ('Ведите x') ; readln (X) ; writeln ('Ведите y') ; readln (y) ; if (x>0) and (y>0) then ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
можете объяснить за что отвечает xsearch? program c4; var n: integer; x, y: integer; xmin, xmax: integer; xsearch: boolean; ymin, ymax: integer; i: integer; s: real; begin xsearch : = true; xmin : = 0; xmax : = 0; ymin:=0; ymax : = 0; readln (n) ;
Ответы (1)
Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;
Ответы (1)
Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на него! Это Паскаль Program Programm; var n:string; a:integer; b:integer; c:integer; answer: integer; begin write ('Как вас зовут:') ; readln (n) ; writeln ('Привет, ', n,'!
Ответы (1)