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

Question

Мария Новикова

Информатика

5 марта, 16:06

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

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Лейла Захарова · 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.