Цикл с постусловием. Подсчитать кол-во цифр в введеном с ...
Цикл с постусловием.
Подсчитать кол-во цифр в введеном с клавиатуры числе х кол-во троек.
Составить блок схему и программу
Есть ответ
17.12.2022
257
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
