var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.
вобще меня учитель учил это делать так:
Будет. 6. килобайт.......
1 шаг цикла:
P=1
i = 4
2 шаг цикла
P=1
i = 5
3 шаг цикла
P = 1
i = 6
4 шаг цикла
P = 1*2 = 2
i = 7
5 шаг цикла
P = 2*2 = 4
i = 8
6 шаг цикла
P = 4*2 = 8
i = 9
7 шаг цикла
P = 8*3 = 24
i = 10
Ответ: P=24