Дано натуральное число. Напишите программу, которая вычисляет
сколько раз в нем встречается последняя цифра
Ответы на вопрос
Ответил gfhjkmgfhjkm20
1
Ответ:
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.
Новые вопросы
Английский язык,
2 года назад
Русский язык,
2 года назад
Русский язык,
2 года назад
Литература,
8 лет назад