Где хранятся данные, например, о номерах телефонов?Расскажи о них. Является ли такое хранилище данных информационной системой?

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.

№12. Записать логическое выражение определяющее, что число А является трёхзначным.

ответ: if len(str(A)) == 3: print(True)

№13. Записать условие, которое является истинным, когда только одно из чисел A, B и С меньше 45.

ответ: if (A < 45 and B >= 45 and C >= 45) or (B < 45 and A >= 45 and C >= 45) or (C < 45 and B >= 45 and A >= 45): print(True)

№14. Записать условие, которые является истинным, когда целое А не кратно трём и заканчивается нулем.

ответ: if not A % 3 == 0 and A % 10 == 0: print(True)

№15. Записать логическое выражение, которое определяет, принадлежит ли число А интервалу от -137 до -51 или интервалу от 123 до 55.

ответ: if (A > -137 and A < -51) or (A > 55 and A < 123): print(True)