Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if a<b then m1:=a else m1:=b;
if c<d then m2:=c else m2:=d;
if m1<m2 then min:=m1 else min:=m2;
end;
var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
writeln('min = ',min(a,b,c,d));
end.
Пример:
Введите 4 числа:
5 8 3 6
min = 3
var i,a,b,m,sum,s:integer;
begin
read(a,b,m);
for i:=a to b do begin
if(i mod m =0)then sum:=sum+i;
if(i mod 2 =1)then s:=s+1;
end;
writeln(sum,' ',s);
end.
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>