Переменная а, в, с, х:целый;
Начало
ввод(а);
с:=0;
для в:=1 до а делать
Начало
ввод(х);
если х>0 тогда начало
с:=с+х;
конец;
вывод("Количество слагаемых: ", в, " Сумма: ", с);
конец.
Перевод из 10-ой в 16-ю (8-ю) выполняется делением на 16 (8) и выписыванием остатков
64010(10) = FA0A(16)
<span>64010(10) = 175012(8)</span>
var n,k:integer;
begin
readln(n);
k:=n mod 10;
while n>0 do begin
n:=n div 10;
if k<(n mod 10) then k:=n mod 10;
if k=9 then break;
end;
writeln(k);
end.
Чем помочь?что конкретно нужно? доклад?
<span />