Напишите программу которая для заданного числа определит сколько понадобится спичек чтобы выложить все цифры числа Входные данные 1 239 Результат 2 16
Напишите программу которая для заданного числа определит сколько понадобится спичек чтобы выложить все цифры числа
Входные данные
1
239
Результат
2
16
Гость
Ответ(ы) на вопрос:
Гостьсм. вложенный файл, программа в нём
Гость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.
Не нашли ответ?
Похожие вопросы