с ИНФОРМАТИКОЙ
С 3 ПО 5 НОМЕРА​

Задание 3.

1110111₂ = 1∙2⁶+1∙2⁵+1∙2⁴+0∙2³+1∙2²+1∙2¹+1∙2⁰ = 64+32+16+0+4+2+1 = 119₁₀

43₈ = 4∙8¹+3∙8⁰ = 32+3 = 35₁₀

119+35=154

Переводим в шестеричную:

154/6= 25  и остаток 4

25/6= 4    и  остаток 1

154₁₀ = 414₆

ответ: 414₆

Задание 4.

26/2=13 и остаток 0

13/2=6 и остаток 1

6/2=3 и остаток 0

3/2 = 1 и остаток 1

26₁₀=11010₂

ответ: 11010₂

Задание 5.

163₇= 1∙7²+6∙7¹+3∙7⁰ = 49+42+3 = 94₁₀

ответ: 94₁₀

Объяснение:

p - произведениеs - суммаi - цикловая переменная1. цикл с предусловием whilevarp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; while i < 200 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i;   end; i : = i + 1; [или ing(i)]end; writeln(p); writeln(c)end.2. цикл с постусловием repeat varp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; repeatif i mod 5 = 0 thenbeginp : = p * i; s : = s + i;   end; i : = i + 1; [или ing(i)]until i > = 200; writeln(p); writeln(c)end. 3. цикл for varp, s, i : longint; [или integer]beginp : = 1; s : = 0; for i : = 101 to 199 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i;   end; end; writeln(p); writeln(c)end.

на выходе 109

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.