Дано натуральное число. определить: а) количество цифр 3 в нем; б) сколько раз в нем встречается последняя цифра;

287

467

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

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

Rtyrtya

Информатика

4,4(78 оценок)

Var n: longint; d,dn,m,k: integer; begin write('введите натуральное число: '); read(n); m: =0; k: =0; dn: =n mod 10; repeat d: =n mod 10; if d=3 then inc(m); if d=dn then inc(k); n: =n div 10 until n=0; writeln('количество цифр 3 в числе равно ',m); writeln('последняя цифра встречается в числе ',k,' раз(а)') end. тестовое решение: введите натуральное число: 1035334030 количество цифр 3 в числе равно 4 последняя цифра встречается в числе 3 раз(а)

1235124

Информатика

4,7(39 оценок)

Program z; var x,max,n,k: integer; begin x: =-1; max: =-1; n: =0; k: =0; while x< > 0 do begin readln(x); k: =k+1; if x> max then begin max: =x; n: =k; end; end; writeln(n); end.