Создать алгоритм который будет считать количество всех чисел содержащих цифру 3 от 0 доn,n вводится пользователем в диапазоне от 1 до 1000
Создать алгоритм который будет считать количество всех чисел содержащих цифру 3 от 0 доn,n вводится пользователем в диапазоне от 1 до 1000
Гость
Ответ(ы) на вопрос:
Гостьvar n,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
case n of
3..9 : k:=1;
10..99 : begin
k:=1;
for i:=10 to n do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
end;
100..999:begin
k:=1;
for i:=10 to 99 do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
for i:=100 to n do
if (i div 100=3)or(i div 10 mod 10=3)or(i mod 10=3) then k:=k+1;
end;
end;
writeln('k = ',k);
end.
Пример:
n = 120
k = 21
Не нашли ответ?
Похожие вопросы