Посчитать количество вхождений в данное натуральное число цифры 9
Ответы на вопрос
Ответил akhtem26ua
0
var
A,i:longint;
begin
Write('Введие число:');
Readln(A);
i:=0;
while A >=9 do
begin
if A mod 10 = 9 then
inc(i);
A:=A div 10;
end;
WriteLn('i=',i);
Readln;
end.
A,i:longint;
begin
Write('Введие число:');
Readln(A);
i:=0;
while A >=9 do
begin
if A mod 10 = 9 then
inc(i);
A:=A div 10;
end;
WriteLn('i=',i);
Readln;
end.
Новые вопросы