Question

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

Answer 1

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

034412a1332379e0b9d2cb0d6d4d966a.pas

Answer 2

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.

  

034412a1332379e0b9d2cb0d6d4d966a.pas