Цикл с постусловием.
Подсчитать кол-во цифр в введеном с клавиатуры числе х кол-во троек.
Составить блок схему и программу
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
