Дано натуральное число n. составьте программу которая находит количество цифр кратных 5 и их разряды в числе n.

201

293

Посмотреть ответы 1

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

taysonrelect

Информатика

4,5(71 оценок)

Program n1; var a: longint; procedure sumdig(var x: longint); var s: longint; begin s: =0; while ( x< > 0 ) do begin s : = s + (x mod 10); x : = x div 10; end; writeln( 'сумма цифр числа = ', s ); end; begin writeln('введите целое число'); readln(a); sumdig(a); end.