Являлись перфокарты и перфоленты
(1;3)+(1;-2)*3=(6;9)
(6;9)+(3;9)=(9;12)
чтобы чертежник вернулся в исходную точку необходимо переместить его на (-9;-12)
(-9;-12)/3=(-3;-4)
Ответ:4
ТУТ СЛОВО ВЕРТОЛЁТ!!!!!!!!!
Самое простое из того, что смог придумать. Перебираем числа до половины необходимого (больше нет смысла) (for i := 2 to number div 2 do) и ищем есть ли делители (number mod i = 0). Выводим сообщение.
var
number, i : integer;
begin
write('Число: ');
readln(number);
for i := 2 to number div 2 do
if number mod i = 0 then
begin
writeln('Число не является простым, оно делится, как минимум, на ', i);
Exit;
end;
writeln('Число является простым');
end.