Задание 1. Напишите свои ответы в тетради:

1. Опишите следующие инструменты 3D редактора Sketch Up:

Question

Информатика: Задание 1. Напишите свои ответы в тетради: 1. Опишите следующие инструменты 3D редактора Sketch Up:​

Manasyan85140 · Accepted Answer

Program n1;
function isprost(x: integer): boolean;
var i: integer;
begin
if x<2 then isprost:=false else
begin
isprost:=true;
for i := 2 to round(sqrt(x)) do if x mod i = 0 then isprost:=false;
end;
end;
function islow(x: integer): boolean;
var n1,n2: integer;
begin
islow:=false;
n2:=x mod 10;
x:=x div 10;
n1:=x mod 10;
x:=x div 10;
while (n1>n2) and (x<>0) do begin
n2:=n1;
n1:=x mod 10;
x:=x div 10;
end;
if n1>n2 then islow:=true;
end;
var k,n,i,f: integer;
begin
readln(k,n);
f:=-1;
for i:=k to n do if isprost(i) and islow(i) then
begin
write(i,' ');
f:=1;
end;
if f=-1 then write(0);
end.

Задание 1. Напишите свои ответы в тетради:1. Опишите следующие инструменты 3D редактора Sketch Up:​

MOGZ ответил

Задание 1. Напишите свои ответы в тетради:

1. Опишите следующие инструменты 3D редактора Sketch Up: