Дано натуральное число, определите сколько раз в нём встретится последняя цифра - 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.