Регистрация
Екатерина2610
24.06.2021 00:44
Информатика
Есть ответ 👍

Добавляй четвертый предмет и называй вновь получившеесямножество? нарисована колбаса.груша.мяч.цыпленок

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

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

Altama
Altama
4,5(16 оценок)
Кот, лиса, канарейка, собака.
viktoria2206
viktoria2206
4,7(74 оценок)

a1

program a1;

uses graphABC;

var i:integer;

begin

SetWindowSize(400,400);

for i:=0 to 7 do

begin

line(0,50*i,50*i,0);

line(400,50*i,50*i,400)

end

end.

b1

program b1;

uses graphABC;

var i:integer;

begin

SetWindowSize(400,400);

for i:=0 to 7 do

begin

line(50*i,0,400,400-50*i);

if i <> 0 then line(0,50*i,400-50*i,400)

end

end.

a2

program a2;

uses graphABC;

var i:integer;

begin

SetWindowSize(400,400);

for i:=0 to 7 do

begin

line(0,50*i,50*i,0);

line(400,50*i,50*i,400);

line(50*i,0,400,400-50*i);

if i <> 0 then line(0,50*i,400-50*i,400)

end

end.

b2

program b2;

uses graphABC;

var i:integer;

begin

SetWindowSize(400,400);

for i:=1 to 7 do line(50*i,0,50*i,400);

for i:=1 to 7 do line(0,50*i,400,50*i)

end.

Объяснение:

используем циклы с параметром

Популярно: Информатика