Ну тут обычная программка с циклом, можно просто в лоб посмотреть, чтобы легче понять.
Нам дано, что s = 0, k = 1
Дальше цикл, пока s не станет больше или равен 66, он будет работать
А цикл делает следующее
Каждый раз прибавляет 3 к k и прибавляет это число k к s, чтобы получить заветные 66, а теперь рассмотрим в лоб, какие числа крутятся в программе:
Начало: 1,0 - 4,4 - 7,11 - 10, 21 - 13, 34 - 16, 50 - 19 - 69. Стоп цикла, так как число S стало больше 66 (69)
Дальше программа выводит на экран число k(19)
Ответ: 19.
<span>1) Сообщение в кодировке ASCII : </span>
01010011
01001111 01000110 01010100
Декодированное
сообщение:
SOFT
<span>
2) Сообщение в кодировке КОИ-8 : </span>
11110000
11000001 11010000 11001011 11000001
Декодированное
<span>сообщение:
</span>
Папка
Ответ:
Объяснение:1. Следует предварительно выделить необходимый фрагмент таблицы, на основе которого строится диаграмма, причем хорошо бы, чтоб левый столбец содержал названия строк, а первая строка – названия столбцов. Тогда мастер сразу включит их в диаграмму, расположив по осям или вставив в легенду. Если требуется выделить данные в разных частях таблицы, выделение выполняют при нажатой клавише Ctrl.
2. Выберите тип диаграммы. Предлагается 15 основных типов, у каждого из которых есть еще подтипы. Для круговой диаграммы берутся значения одного наименования: одной строки или одного столбца (такие значения одного наименования называются категорией).
3. Уточните диапазон данных и где они размещены (в строках или столбцах).
4. Введите общий заголовков диаграммы и подписи осей, если они будут присутствовать в диаграмме.
5. Определите, как разместить диаграмму: на отдельном листе или вместе с таблицей.
6. Нажмите Готово.
Если диаграмма на отдельном листе, перейти к таблице можно, используя панель навигации в нижней части окна Excel .
Готовую диаграмму можно отредактировать. Для этого надо
1. выделить ее,
2. один раз щелкнув по ней (выделенная диаграмма отмечена черными квадратиками по углам).
3. теперь ее можно удалить (Delete), двигать мышью по листу в нужное место листа, уменьшать или растягивать за черные квадратики.
Var a,b,x,s:integer;
begin
write('a = ');
readln(a);
write('x = ');
readln(x);
b:=a;
s:=0;
while b>0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
writeln('s = ',s);
if s>x
then writeln('Сумма цифр больше ',x)
else writeln('Сумма цифр не больше ',x);
end.
Пример:
<span>a = 31854
x = 15
s = 21
Сумма цифр больше 15</span>
