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

Uses graphabc;

var

a:real;

begin

writeln ('Введите число') ;

readln (a) ;

if

(a>0) and (a mod 2=0) then

setwindowsize (500,500) ;

setpencolor (clyellow) ;

circle (250,250,100) ;

floodfill (250,250, clorange) ;

if a<0 then

clearwindow;

rectangle (50,50,250,250) ;

else line (250,250,300,300) ;

end.

Встречено 'else', а ожидался оператор. Что делать? Что не так?

+2
Ответы (1)
  1. 1 июня, 03:17
    0
    Var

    a:real;

    begin

    writeln ('Введите число') ;

    readln (a) ;

    if

    (a>0) and (a mod 2=0) then

    setwindowsize (500,500) ;

    setpencolor (clyellow) ;

    circle (250,250,100) ;

    floodfill (250,250, clorange) ;

    if a<0 then

    begin

    clearwindow;

    rectangle (50,50,250,250) ;

    end

    else line (250,250,300,300) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Uses graphabc; var a:real; begin writeln ('Введите число') ; readln (a) ; if (a>0) and (a mod 2=0) then setwindowsize (500,500) ; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
В чём ошибка программы? Если не сложно объясните. код программы - Program cikl; Uses GraphABC; Var r:Integer; begin for r:=460 downto 100 do begin circle (620,480, r) ; r:=r-35; end; FloodFill (170,480, clPurple) ; FloodFill (205,480, clBlue) ;
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (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)
Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;
Ответы (1)