1)
использовать Чертежник
алг
нач
опустить перо
нц 5 раз
сместиться на вектор(1,0)
сместиться на вектор(0,-5)
сместиться на вектор(-1,0)
сместиться на вектор(0,5)
сместиться на вектор(1,0)
кц
<span>кон
2.а)
использовать Чертежник
алг нач
опустить перо
нц 5 раз
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(1,1)
сместиться на вектор(1,-1)кц
нц 5 раз
сместиться на вектор(-1,-1)
сместиться на вектор(-1,1)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
сместиться на вектор(0,1)
кц
<span>кон
2.б)</span></span>использовать Чертежник
<span>алг
нач
нц 4 раз
нц 3 раз
сместиться на вектор(1,-3)
опустить перо
сместиться на вектор(0,-1)
сместиться на вектор(-1,0)
поднять перо
кц
сместиться на вектор(2,13)
кц
<span>кон
</span>2.в)</span>использовать Чертежник
алг
нач
нц 5 раз
опустить перо
сместиться на вектор(2,0)
сместиться на вектор(-2,0)
сместиться на вектор(0,-2)
поднять перо
сместиться на вектор(1,1)
кц
сместиться на вектор(7,5)
нц 5 раз
опустить перо
сместиться на вектор(-2,0)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
поднять перо
сместиться на вектор(-1,1)
кц
сместиться на вектор(-7,-7)
нц 5 раз
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(0,-2)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор(-1,1)
кц
сместиться на вектор(7,-5)
нц 5 раз
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(1,1)
кц
<span>кон</span>
Ответ:
program raf105;
var m,km: real;
begin
write('Введите метры: ');
readln(m);
km:= m / 1000;
writeln('Это будет ',km,' км.');
end.
Объяснение:
В километре 1000 метров. Делим количество метров на 1000 и получаем дробное число километров
Тип real принимает числа с цифрами после точки (не целые)
Var a,b,c:integer;
function min(x1,x2:integer):integer;
begin
if x1<x2 then min:=x1 else min:=x2;
end;
function max(x1,x2:integer):integer;
begin
if x1<x2 then max:=x2 else max:=x1;
end;
begin
readln(a,b,c);
writeln( max( max(a,b) ,c ) - min ( min(a,b), c) );
<span>end.</span>
1) 100
2) =$D6+E6
...........................................................
var n,i,k,a: integer;
begin
readln(n);
k:=0;
for i:=1 to n do begin
readln (a);
if (a div 3 <> 0) and (a mod 10 = 2) then
k:=k+1;
end;
writeln(k);
end.