Поиск по этому блогу

четверг, 21 сентября 2017 г.

Кругляши

(Время: 1 сек. Память: 16 Мб Сложность: 16%)

Однажды в просторах рунета появился следующий ребус:

157892 = 3
203516 = 2
409578 = 4
236271 = ?

Никто так и не смог его разгадать. Позже оказалось, что число в правом столбце равно сумме "кругляшей", которые есть в цифрах числа, расположенного слева. Ваша задача написать программу, которая определяет, сколько кругляшей в числе.

Входные данные

Во входном файле INPUT.TXT записано целое число N (0 ≤ N ≤ 10100).

Выходные данные
В выходной файл OUTPUT.TXT выведите одно число – количество кругляшей в числе N.

Примеры
INPUT.TXT
OUTPUT.TXT
1
157892
3
2
203516
2
3
409578
4
4
236271
1
Решение:

var d,k,i:integer;
s:string;
p:char;
f,f1:text;
begin
   assign(f,'input.txt');
   reset(f);
   readln(f,s);
   close(f);
   d:=length(s);
   k:=0;
   for i:=1 to d do
     begin
       p:=s[i];
       case p of
         '0','6','9':  k:=k+1;
                  '8':k:=k+2;
       end;
     end;
   assign(f1,'output.txt');
   rewrite(f1);
   write(f1,k); close(f1);
end.

Комментариев нет:

Отправить комментарий