program raf105;
var a,b,sum,nsum,nkol:integer;
sari:real;
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
b:= a mod 10;
a:= (a-b) div 10;
sum:= sum+b;
if (b mod 2)<>0
then
begin
nsum:= nsum+b;
nkol:= nkol+1;
end;
end;
sari:= nsum/nkol;
writeln('Сумма всех цифр в числе: ',sum);
writeln('Среднее арифметическое нечётных цифр в числе: ',sari);
end.
<u><em>Язык программирования PascalABC</em></u>
Состав и структуру мотопехотного батальона армии ФРГ (образца 1970 года) по следующему описанию.
57 в восьмеричной системе - это в нашей 10-ричной 47.
2014 в шестнадцатеричной - это в нашей 8212.
Составить алгоритм по нахождению последней цифры при возведении а в степень b не сложно:
var
i,a,b,p:word; {диапазон целых чисел 0..65535}
Begin
readln(a,b);p:=a mod 10; {первая степень числа а}
for i:=2 to b do {если степень больше 1, то в цикле начинаем домножать, пока № витка цикла не дойдет до b }
begin
p:=p*a; {домножаем результат на последнюю цифру числа а}
p:=p mod 10; {отделяем последнюю цифру результата}
end;
writeln(p); {по окончании цикла в р находится результат задачи}
<span>end.
В результате вводимых данных (47 и 8212) получаем 1. Думаю, что и в 16-ричной будет тоже 1.</span>
Ответ:
использовать Робот
алг
нач
закрасить
нц пока слева свободно
влево
если снизу стена то закрасить всё
кц
нц пока сверху свободно
вверх
если слева стена то закрасить всё
кц
кон
Первый американский программируемый компьютер. Разработан и построен в 1941 году по контракту с IBM молодым гарвардским математиком Говардом Эйкеном и ещё четырьмя инженерами этой компании на основе идей англичанина Чарльза Бэббиджа.