Var N,K : integer;beginK := 10; read(N); if (N div 10 + N mod 10) < K then begin writeln('Сумма цифр числа N меньше K'); end; writeln('N = ', N);end.
128 * 24 * 100 = 307 200- символов всего
307200 * 8 = 2 457 600 размер статьи в битах
2 457 600 / 8000 = 307.2 килобайта
Тут, во-первых, не понятно о каких именно таблицах идет речь
Для таблиц баз данных:
1) Строка называется записью и может удаляться. Столбец называется колонка и может удаляться. Ячейка (поле) по сути сама по себе удаляться не может, но может быть очищена от данных или содержать данные по умолчанию
2) Строка(несколько вариантов), целое(несколько вариант), с плавающей запятой (несколько вариантов), логического типа, дата, дата-время, время и двоичные данные или blob
Для электронных таблиц типа Excel:
1) Столбцы, строки и ячейки могут быть удалены. При удалении отдельной ячейки выбирается, как именно должны быть смещены данные
2) строка, ссылка, гиперссылка, целое число, дробное число, проценты, денежные единицы, дата, дата-время, время, формула. Так же ячейка может содержать дополнительные данные типа личного имени, комментария, форматирование, цвет фона и тд
Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.
Программа 9 раз вычитает из s число 3.
Поэтому s=50-9*3=23
Если все расписывать по шагам:
k=1;
s=50-3=47
k=2
s=47-3=44
k=3
s=44-3=41
k=4
s=41-3=38
k=5
s=38-3=35
k=6
s=35-3=32
k=7
s=32-3=29
k=8
s=29-3=26
k=9
s=26-3=23
Ответ: 23
