Дано натуральное число. Напишите программу, которая вычисляет сколько раз в нем встречается последняя цифра
266
362
Ответы на вопрос:
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.
D=4 c=5 первый раз в цикл войдет c=2 а d=1 цикл пройдет 3 раза, соответственно к c и d прибавляется по 1
Популярно: Информатика
-
ФАНТА6666620.04.2022 14:46
-
Регина241114.05.2021 19:59
-
olya20051212.06.2021 08:33
-
StanleyPines61828.10.2022 16:11
-
pernik2012121.09.2021 10:39
-
VikaCat336406.02.2022 03:27
-
glebKoz19.05.2022 03:53
-
KarinaKOSMOS29.11.2022 20:18
-
ZA2513.06.2023 15:26
-
tarlaejan1226.11.2022 00:05