Program z2;Var a,b,c:integer; SA:real;Begin write('Введите 1-ое число: '); readln(a); write('Введите 1-ое число: '); readln(b); write('Введите 3-ье число: '); readln(c); SA:= (a + b + c) / 3; writeln('Сумма: ', SA);End.
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(30,1,20); a.Println;
Writeln('Элементов, оканчивающихся цифрой 8- ',
a.Where(x->x mod 10=8).Count)
end.
<u>Пример</u>
1 3 20 17 2 5 3 14 18 1 13 3 8 9 5 19 19 3 19 20 2 12 20 13 7 5 10 9 1 20
Элементов, оканчивающихся цифрой 8- 2
По середине "источник информации" > "информационный канал" > "приемник информации"
<span>Делим число на 2 и выписываем остатки</span>
<span>536 = 268·2 + </span>0
<span>268 = 134·2 + </span>0
<span>134 = 67·2 + </span>0
<span>67 = 33·2 + </span>1
<span>33 = 16·2 + </span>1
<span>16 = 8·2 + </span>0
<span>8 = 4·2 + </span>0
<span>4 = 2·2 + </span>0
<span>2 = 1·2 + </span>0
<span>Последний множитель перед 2 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>1000011000