Склавиатуры вводится трёхзначное число. найти числоединиц в нем

ianezlo ianezlo    1   21.07.2019 09:00    0

Ответы
Ram543 Ram543  03.10.2020 09:30
Var n,k:integer;
begin
write('n='); readln(n);
k:=0;
if n div 100 = 1 then k:=k+1;
if n div 10 mod 10 = 1 then k:=k+1;
if n mod 10 = 1 then k:=k+1;
writeln('k=',k);
end.

Пример:
n=191
k=2
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика