Предмет: Информатика,
автор: fgfgfgfkljkhhffgdgws
С клавиатуры вводится трёхзначное число. Найти числоединиц в нем
Ответы
Автор ответа:
0
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
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
Похожие вопросы
Предмет: Физика,
автор: mixa4919
Предмет: Информатика,
автор: vipkrasnov19827944
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: Irina222222