1. Дано натуральное число. Вывести на экран все натуральные числа до заданного включительно. При проверке программы введите значение 10000. program Natural_Number; var i, n: word; begin writeln('Введите число от 1 до 60000'); readln(n); writeln('Ряд натуаральных чисел до ', n, ' = '); for i := 1 to n do begin write(i, ' ') end end.​

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.

3.

алг фигура

нач

сместиться на вектор(2,0)

сместиться на вектор(0,2)

сместиться на вектор(2,0)

сместиться на вектор(0,-2)

кон

4.

использовать Чертежник

алг

нач

опустить перо

цел i

нц для i от 1 до 5  

фигура

кц

поднять перо

кон

алг фигура

нач

сместиться на вектор(2,0)

сместиться на вектор(0,2)

сместиться на вектор(2,0)

сместиться на вектор(0,-2)

кон

5.

использовать Чертежник

алг

нач

опустить перо

забор

робаз

поднять перо

кон

алг робаз

нач

цел i

нц для i от 1 до 5  

аругиф

кц

кон

алг аругиф

нач

сместиться на вектор(-2,0)

сместиться на вектор(0,-2)

сместиться на вектор(-2,0)

сместиться на вектор(0,2)

кон

алг забор

нач

цел i

нц для i от 1 до 5  

фигура

кц

кон

алг фигура

нач

сместиться на вектор(2,0)

сместиться на вектор(0,2)

сместиться на вектор(2,0)

сместиться на вектор(0,-2)

кон