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

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы