19 из десятичной в 2, 8, 16 систему счисления

19/2=9(1)

9/2=4(1)

4/2=2(0)

2/2=1(0)

1/2=0(1) ответ 10 011 

 

19/8=2(1)

2/8=0(1) ответ 11в восьмеричной системе.(может быть не точно )

 

19/16=1(3)

1/16=0(1) ответ 13в   шестнадцатеричной системе

{1 } var   form1: tform1;   s1,s2: string; implementation {$r *.dfm} procedure tform1.formcreate(sender: tobject); begin     s1: ='stroka1';     s2: ='stroka2';     label1.caption: =s1;     label2.caption: =s2; end; procedure tform1.button1click(sender: tobject); var s: string; begin     s: =s2;     s2: =s1;     s1: =s;     label1.caption: =s1;     label2.caption: =s2 end; end. {2 } var   form1: tform1;   n: integer;   a: array[1..10] of integer; implementation {$r *.dfm} procedure tform1.formcreate(sender: tobject); var i: integer; begin   randomize;   label1.caption: ='';   label2.caption: ='';   n: =10;   for i: =1 to n do   a[i]: =random(100); end; procedure tform1.button1click(sender: tobject); var i: integer; begin   for i: =1 to n do   label1.caption: = label1.caption + ' '+inttostr(a[i]); end; procedure tform1.button2click(sender: tobject); var i: integer; begin   for i: =1 to n do   if a[i]< strtoint(edit1.text) then   label2.caption: = label2.caption + ' '+inttostr(a[i]); end; end.

{сумма натуральных чисел из промежутка от 1 до 100, которые делятся на 17 и сумма цифр, которых не превышает 7. можно перебором} var i,s: integer; begin   s: =0;   for i: =1 to 100 do   if  (i mod 17=0) and (i div 10 + i mod 10< 7) then   s: =s+i;   writeln(s); end. {результат 51} { можно оптимизировать в цикле изменив  for i: =1 to 100 do на   for i: =17 to 100 do} {2 вариантө оптимальнее - перебираем только числа кратные 17] var i,s: integer; begin   s: =0; i: =17;   while i< =100 do   begin     if  (i div 10 + i mod 10< 7) then     s: =s+i;     i: =i+17;   end;   writeln(s); end.