s = 0
k = 0: x = -10+3*0 = -10; x>0 - нет
k = 1: x = -10+3*1 = -7; x>0 - нет
k = 2: x = -10+3*2 = -4; x>0 - нет
k = 3: x = -10+3*3 = -1; x>0 - нет
k = 4: x = -10+3*4 = 2; x>0 - да; s = 0+2 = 2
k = 5: x = -10+3*5 = 5; x>0 - да; s = 2+5 = 7
k = 6: x = -10+3*6 = 8; x>0 - да; s = 7+8 = 15
k = 7: x = -10+3*7 = 11; x>0 - да; s = 15+11 = 26
k = 8: x = -10+3*8 = 14; x>0 - да; s = 26+14 = 40
k = 9: x = -10+3*9 = 17; x>0 - да; s = 40+17 = 57
k = 10: x = -10+3*10 = 20; x>0 - да; s = 57+20 = 77
На экран будут выводиться значения: -10 -7 -4 -1 2 5 8 11 14 17 20
После 20 выведется значение s = 77. Т.е подряд, без пробелов, будут выведены числа 20 и 77.
Значение s = 77.
Действия по изменению структуры таблицы:Действие Содержание действия
Выделение всей таблицы, столбца, строки или ячейки Установите курсор в любую ячейку и выполните команду Таблица → Выделить→ Таблица, Столбец, Строка или Ячейка
Вставка столбцов Установить курсор в место вставки и выполнить команду Таблица→ Добавить→ Столбцы слева или Столбцы справа
Вставка строк Установить курсор в место вставки и выполнить команду Таблица→ Добавить→ Строки ниже или Строки выше
Объединение ячеек Выделить смежные ячейки и выполнить команду Таблица→ Объединить ячейки
Разбиение ячеек Выделить смежные ячейки и выполнить команду Таблица→ Разбить ячейки
Удаление таблицы Установить курсор в любую ячейку и выполнить команду Таблица→ Удалить→ Таблица
Удаление столбцов или строк Установить курсор в любую ячейку и выполнить команду Таблица→ Удалить→ Столбцы или строки
Действия по форматированию таблицы:Действия Содержание действий
Перемещение таблицы Перетащить таблицу за маркер в левом верхнем углу таблицы или выполнить команду Таблица→ Свойства таблицы→ Выравнивание
Изменение размера таблицы Использовать маркер в правом нижнем углу таблицы методом протягивания или выполнить команду Таблица→ Свойства таблицы→ Таблица→ Размер
Изменение размеров столбцов или строк Использовать маркеры изменения размера, появляющиеся при наведении указателя мыши на рамки таблицы, или выполнить команду Таблица→ Автоподбор→ Выровнять ширину столбцов или Выровнять высоту строк для предварительно выделенных столбцов или строк
Оформление рамок таблицы и ячеек Выполнить команду Таблица→ Свойства таблицы→ Таблица→ Границы заливки
program ml;
uses crt;
var x,i:integer;
w,l:real;
begin
clrscr;
readln(x);
L:=x;
for i:=1 to x do begin
w:=w+1;
l:=x/w;
if frac(l) = 0 then writeln(l:2:0);
end;
readkey;
end.