Напишите программу которая для заданного числа определит сколько понадобится спичек чтобы...

Question

Напишите программу которая для заданного числа определит сколько понадобится спичек чтобы выложить все цифры числа
Входные данные
1
239
Результат
2
16

Answer 1

var a: array[0..9] of integer:=(6,2,5,5,4,5,6,3,7,6);
    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.

  

Answer 2

См. вложенный файл, программа в нём