Https://www.pressofatlanticcity.com/calendar/365-dni-365-days-2020-watch-online-full-movie-free-hdwatchseries/event_5f0f4910-8fad-11ea-b4a2-308d99b28daf.html
https://www.pressofatlanticcity.com/calendar/watch-365-dni-365-days-2020-full-movie-online-free--123movies-hd/event_15f89772-8fad-11ea-80a6-5cb9017b09f3.html
https://www.pressofatlanticcity.com/calendar/full--watch-365-dni-365-days-2020-online-free-123movies/event_63b25ea8-8fad-11ea-bd49-6777c42b7a4a.html
https://www.pressofatlanticcity.com/calendar/hd-watch-365-dni-365-days-2020-full-online-free/event_67749808-8fad-11ea-b26f-308d99b2945b.html
https://www.pressofatlanticcity.com/calendar/123movies-hd-watch-365-dni-365-days-2020-online-full-or-free/event_1917a4ac-8fad-11ea-a733-9bbe50e4b6c6.html
Робот:
var canvas = document.getElementById('cl');
var ctx = canvas.getContext('2d');
ctx.fillStyle = 'orange';
ctx.fillRect(25, 0, 10, 10);
ctx.fillStyle = 'blue';
ctx.fillRect(27, 2, 2, 2);
ctx.fillRect(31, 2, 2, 2);
ctx.fillStyle = 'purple';
ctx.fillRect(29, 10, 2, 5);
ctx.fillStyle = 'black';
ctx.fillRect(15, 15, 30, 2);
ctx.fillStyle = 'grey';
ctx.fillRect(22.5, 15, 15, 20);
ctx.fillStyle = 'green';
ctx.fillRect(22.5, 35, 2, 15);
ctx.fillRect(35.5, 35, 2, 15);
Стикмэн:
ctx.fillStyle = 'black';
ctx.strokeRect(25, 50, 10, 10);
ctx.fillStyle = 'blue';
ctx.fillRect(29, 60, 2, 28);
ctx.beginPath();
ctx.lineWidth="2";
ctx.strokeStyle="black";
ctx.moveTo(29,70);
ctx.lineTo(40,62);
ctx.stroke();
ctx.beginPath();
ctx.lineWidth="2";
ctx.strokeStyle="black";
ctx.moveTo(30,70);
ctx.lineTo(20,62);
ctx.stroke();
ctx.beginPath();
ctx.lineWidth="2";
ctx.strokeStyle="black";
ctx.moveTo(30,86);
ctx.lineTo(20,95);
ctx.stroke();
ctx.beginPath();
ctx.lineWidth="2";
ctx.strokeStyle="black";
ctx.moveTo(29,86);
ctx.lineTo(40,95);
ctx.stroke();
И да,надеюсь ты разбираешься в Javascript`е и знаешь что как.
4.
program p3;
uses Robot;
procedure Square2;
begin
right;
paint;
down;
paint;
left;
paint;
up;
paint
end;
var i,j:integer;
begin
Task('p3');
for i := 1 to 6 do
begin
Square2;
if i<=5 then
begin
for j := 1 to 2 do left;
for j := 1 to 2 do up
end
end
end.
5.
program p4;
uses Robot;
procedure Square2;
begin
paint;
right;
paint;
down;
paint;
left;
paint;
up
end;
var i:integer;
begin
Task('p4');
Square2;
for i:= 1 to 2 do right;
Square2;
for i:= 1 to 2 do down;
Square2;
for i:= 1 to 2 do left;
Square2;
for i:= 1 to 2 do up
end.
Объяснение:
Второй вариант 5-го задания с двумя процедурами
program p4;
uses Robot;
procedure Square2;
begin
paint;
right;
paint;
down;
paint;
left;
paint;
up
end;
procedure Square;
var i:integer;
begin
Square2;
for i:= 1 to 2 do right;
Square2;
for i:= 1 to 2 do down;
Square2;
for i:= 1 to 2 do left;
Square2;
for i:= 1 to 2 do up
end;
begin
Task('p4');
Square
end.