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

clydeofficial clydeofficial    2   13.01.2021 21:12    0

Ответы
Mildx Mildx  13.01.2021 22:00

program z1;

var a,k,p:integer;

begin

write('Введите число: ');

readln(a);

k:=0;

p:=a mod 10;

while a>0 do

begin

if a mod 10 = p then k:=k+1;

a:=a div 10

end;

writeln(k,' раз(-а) встречается последняя цифра')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика