В Паскале ввести целое число и определить сколько в этом числе троек. Я не очень в программировании, поэтому помогите пожалуйста ))
В Паскале ввести целое число и определить сколько в этом числе троек. Я не очень в программировании, поэтому помогите пожалуйста ))
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,d:integer;
begin
writeln('введите числo');
readln(a);
b:=0;
while a<>0 do begin
c:=a mod 10;
a:=a div 10;
if c=3 then b:=b+1;
end;
writeln('количество троек в числе ',b);
end.
Не нашли ответ?
Похожие вопросы