Напишите программу которая для заданного числа определит сколько понадобится спичек чтобы выложить все цифры числа
Входные данные
1
239
Результат
2
16
Входные данные
1
239
Результат
2
16
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
i,s: integer;
st: string;
begin
write('число: '); readln(st);
s:=0;
for i:=1 to length(st) do
s:=s+a[ord(st[i])-48];
writeln('число спичек = ',s);
end.