S=int(input())
m=0
while s!=0:
m+=s%10
s=s//10
print(m)
60 битов. но я не уверенна, но помоему всё же 60б
Всмысле?Напиши по точнее...
var m,n: integer;
begin
write('Введите два числа: ');
readln(m,n);
if abs(m) > abs(n) then writeln(m-100);
<span>end.</span>
Program z4;
var mas:array[1..10] of real;
var s:real;
var i:integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,' число: ');
readln(mas[i]);
s:=s+mas[i];
end;
writeln('Новый массив: ');
for i:=1 to 10 do
begin
mas[i]:=mas[i]/s;
write(mas[i],' ');
end;
end.