Дано натуральное число, определите сколько раз в нём встретится последняя цифра - Pascal ABC
Формулировка задачи:
Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto
Решение задачи: «Дано натуральное число, определите сколько раз в нём встретится последняя цифра»
textual
Листинг программы
var c, last, k: integer; label 1; begin write('Введите число: '); readln(c); last:=c mod 10; k:=1; writeln('Последняя цифра: ', last); 1:c:=c div 10; if c mod 10 = last then inc(k); if c>0 then goto 1; writeln('Количество раз встречается последняя цифра: ', k); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д