Есть ответ 👍

Склавиатуры вводится целое положительное число. определить, сколько раз в этом числе встретилась цифра 5. packal abc

157
221
Посмотреть ответы 2

Ответы на вопрос:


Var    n, c: integer; begin   read(n);   c : = 0;   while n > 0 do begin     if n mod 10 = 5 then inc(c);     n : = n div 10   end;   write(c) end.
tinita15
4,8(16 оценок)

  в 7-ю будет   2060в  15-ю  будет  338

Популярно: Информатика