Var s,i:integer;
begin
write('s = ');
readln(s);
for i:=100 to 999 do
if (i div 100 + i div 10 mod 10 + i mod 10 < s)
then write(i,' ');
end.
Пример:
<span>s = 5
100 101 102 103 110 111 112 120 121 130 200 201 202 210 211 220 300 301 310 400 </span>
Считая, что в столбце A задается значение аргумента x, а в столбце B - значение функции y, можно определить, что в приведенном фрагменте таблицы вычисляется функция y = 2x.
При x=1 y=2, x=2 y=4, ... x=10 y=20
График данной функции - средний в верхнем ряду.
А B не А А и В А и В или не А
0 0 1 0 1
0 1 1 0 1
1 0 0 0 0
1 1 0 1 1
Begin
randomize;
writeln('Для молодёжи: ', 1 + random(100));
writeln('Для взрослых: ', 101 + random(100));
writeln('Для стариков: ', 201 + random(50));
end.
Формула в ячейке Е9 = Е8*$A$8
То есть в формуле есть ЗАКРЕПЛЁННАЯ ячейка ($A$8)
Значит, формула в ячейке Е11 = E10*$A$8