Умоляю 50 . дано целое число х. если число кратно 3, то построить зеленую окружность, иначе-построить желтый квадрат. в pascalabc

243

368

Посмотреть ответы 2

Ответы на вопрос:

dance7

Информатика

4,6(79 оценок)

uses graphabc;

var

x: integer;

begin

setwindowsize(200, 200);

read(x);

if (x mod 3 = 0) then

begin

setbrushcolor(clgreen);

fillcircle(100, 100, 60);

end

else

begin

setbrushcolor(clyellow);

fillrectangle(150, 150, 50, 50);

end;

end.

sashatitsky

Информатика

4,4(76 оценок)

// pascalabc.net 3.2, сборка 1398 от 07.03.2017 // внимание! если программа не работает, обновите версию! begin var n: =readlninteger; writeln(readseqinteger(n).sum) end. пример 10 43 564 32 76 342 76 43 342 876 42 2436