Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1

Ответы

Ответ дал: anita2811

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

Спасибо

Ответ дал: Гость

выравнивание информации за счет расположения ее в ячейках таблицы. с таблиц текст можно представлять в виде колонок выравнивание названий и полей формы расположение на web-странице текста и графических изображений по разным колонкам использование вложенных таблиц различного фона для отдельных частей страницы

2)чтобы создать таблицу, используют команду таблица > вставить таблицу. в открывшемся диалоговом окне указывают размер таблицы (в ячейках), а также дополнительные параметры, реализуемые как атрибуты соответствующих тегов. чтобы занести информацию в таблицу, следует установить курсор в нужную ячейку и начать ввод. при работе с ячейками таблицы можно применять любые команды форматирования.

Ответ дал: Гость

в цикле sum [i]: =sum+mas[i,j];