Дано натуральное число, определите сколько раз в нём встретится последняя цифра - Pascal ABC

Формулировка задачи:

Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto

Код к задаче: «Дано натуральное число, определите сколько раз в нём встретится последняя цифра - Pascal ABC»

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


СОХРАНИТЬ ССЫЛКУ