var n, k, i:integer;
begin
writeln('Введи число, которое нужно выводить');
read(k);
writeln('Укажи, сколько раз вывести число');
read(n);
for i:=1 to n do
write(k,' ');
end.
===== PascalABC.NET =====
begin
var a := 1.7 * (4.9 - 7.23 / 4.8) + 3.4;
var b := 1.2314 + 8.85 ** 5;
var c := 0.00354 / (347 + 526.71) * 0.21;
PrintLn(a, b, c)
end.
Результаты:
9.169375 54290.7953553125 8.50854402490529E-07
<span>1)из (14) наливаем в (5)</span>
<span>2)из (5) наливаем в (9)</span>
<span>3)повторяем пункт 1 </span>
<span>4)из (5) наливаем в (9) остается 1л</span>
<span>5)переливаем из (9) в (14)</span>
<span>6)выливаем 1л из (5) в (9)</span>
<span>7)из (14) наливаем в (5)</span>
<span>8)из (5) наливаем в (9) </span>
<span>в битоне(9) находится 6л молока</span>
<span>9)из (14) наливаем в (5)</span>
<span>10)из (5) наливаем в (9) </span>
<span>в битоне (5) остается 2л молока</span>
<span>11)переливаем из (9)в (14)</span>
<span>12)наливаем в (9) 2л молока из (5) </span>
<span>13)из (14) наливаем в (5)</span>
<span>14)из (5) переливаем в (9)</span>
10101010(2) =170(10)
Решение:
Приведем 10101010 из системы счисления 2 в десятичную систему счисления
101010102=1·2(7) +0·2(6) +1·2(5) +0·2(4) +1·2(3) +0·2(2) +1·2(1) +0·2(0) =170(10)
252(8) =170(10)
Приведем 252 из системы счисления 8 в десятичную систему счисления
252(8)=2·8(2) +5·8(1) +2·8(0) =170(10)
7(16) =7(10)
Приведем 7 из системы счисления 16 в десятичную систему счисления
7(16)=7·16(0) =7(10)
170(10) - 170(10) + 7(10) = 7(10)
