Цикл с постусловием.
Подсчитать кол-во цифр в введеном с клавиатуры числе х кол-во троек.
Составить блок схему и программу
Ответы
Ответ дал:
0
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.
Приложения:
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад