Question

алгоритмическая конструкция
помогите пожалуйста. Нужно составить программу
очень срочно 30 баллов

Answer 1

Ответ:

program z1;

uses GraphABC;

var t:integer;

begin

SetWindowWidth(400);

SetWindowHeight(400);

SetFontSize(15);

write('Введите показания температуры: ');

read(t);

write(t);

SetPenWidth(2);

if t<=0 then

begin

SetPenColor(clBlue);

Line (150,200,200,150);

Line (200,150,250,200);

Line (250,200,200,250);

Line (200,250,150,200);

FloodFill(200,200,clLightBlue);

Line (100,200,300,200);

Line (200,100,200,300);

Line (100,100,300,300);

Line (100,300,300,100)

end

else

begin

SetPenColor(clYellow);

Line (100,200,300,200);

Line (200,100,200,300);

Line (100,100,300,300);

Line (100,300,300,100);

SetBrushColor(clYellow);

FillCircle(200,200,50)

end

end.

Объяснение:

картинки