Регистрация
androsova2016
10.05.2023 17:06
Информатика
Есть ответ 👍

Дайте определение слова​

210
413
Посмотреть ответы 2

Ответы на вопрос:

tarasyukov
tarasyukov
4,8(97 оценок)

диалог качество праграмма проект праграмматист меню

marga23042002
marga23042002
4,6(77 оценок)

var n, s: integer;

begin

readln(n);

s : = 1;

repeat

case n mod 10 of

0, 6, 9: inc(s);

8: inc(s, 2)

end;

n : = n div 10

until n = 0;

writeln(s)

end.

Популярно: Информатика