Предмет: Информатика,
автор: dneprovskaadina
СРОЧНО
помогите написать алгоритм (не на языке программирования) на школьном А-Я
Приложения:

Ответы
Автор ответа:
1
Ответ:
var a,k:integer;
begin
readln(a);
k:=0;
while a>0 do
begin
if a mod 10 = 1 then k:=k+1;
a:=a div 10;
end;
writeln('k = ',k);
end.
Пример:
31815
k = 2
Объяснение:
vladkadykov26:
Не на русском а на английском
Интересные вопросы
Предмет: Геометрия,
автор: arslankumarov69
Предмет: История,
автор: vovaskrynnik201
Предмет: Русский язык,
автор: Hypa97
Предмет: История,
автор: al607071
Предмет: Информатика,
автор: KEAR2222