Думаю, таблица может быть произвольной. Главное, чтобы было место для ввода x и вывода у.
Например, смотри картинку...
Составить алгоритм нахождения произведения целых нечетных чисел от 1 до 100.
Извини, я на украинском не могу)
Буду приводить аналогию на паскале.
В основе будет лежать "двойной" цикл. (for i:=1 to 100 do for j:=1 to 100 do...)
В первом цикле мы проверяем делится ли "i" на 2 (If i mod 2=0).
Если да(четное), тогда берем след число. Если нет(нечет), то запускаем второй цикл:
(For J:=1 to 100)
В нем мы тоже проверяем число на нечетность. Если число нечетное, тогда у нас есть уже 1ое произведение! "i" - Это первый множитель. "j" - второй. i*j - само произведение. Его можно вывести на экран (writeln(i*j)).
Получается мы берем по-порядку каждое число от 1 до 100, если оно нечетное, тогда по очереди умножаем его на каждое нечетное число, опять же, от 1 до 100.
На паскале:
For i:=1 to 100 do
If i mod 2<>0 then
for j:=1 to 100 do
if j mod 2<>0 then writeln(i*j);
Могут встречаться повторы (3*9 и 9*3)
<span>Книга - подмножество: учебник (свойство - книга для детей школьного возраста),
</span>Книга - подмножество: справочник (свойство - краткое описание объектов),<span>
Жидкость - подмножество: бензин (свойство - горючее),
Жидкость - подмножество: молоко (свойство - белое, непрозрачное),
Человек - подмножество: врач (свойство - лечит),
Человек - подмножество: строитель (свойство - умеет строить)
</span>
1)
var
n:integer;
begin
readln(n);
if(n<0)then write(0)
else write(n+4);
end.
2)
var
a, b: integer;
begin
readln(a, b);
if(a = b) then
write(1)
else
write(0);
end.
3)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a >= 0) then s := s + 1;
if(b >= 0) then s := s + 1;
if(c >= 0) then s := s + 1;
write(s);
end.
4)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a > 0) then s := s + a;
if(b > 0) then s := s + b;
if(c > 0) then s := s + c;
write(s);
end.
5)
var
a, b, c: integer;
begin
readln(a, b, c);
if (a < b) then swap(a, b);
if (a < c) then swap(a, c);
if (b < c) then swap(b, c);
write(a, ' ', b, ' ', c);
end.
6)
var
n, k, s, i: integer;
begin
s := 0;
readln(n, k);
for i := 1 to n.ToString.Length do
if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
write(s);
end.
7)
var
n, s, i: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
s := s + i;
write(s);
end.
9)
var
n, i: integer;
begin
readln(n);
for i := n downto 1 do
write(i);
end.
12
var
n, i: integer;
s: real;
begin
s := 0;
readln(n);
for i := n downto 1 do
s:=s+(0.1*i);
write(s);
end.
13)
var
n, i: integer;
begin
readln(n);
for i := 1 to n do
write(sqr(i), ' ');
end.
14)
var
n, i, c: integer;
begin
i := 1;
c := 0;
readln(n);
while (c <> n) do
begin
if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
i := i + 1;
end;
end.
15)
var
n, i, a: integer;
c: real;
begin
i := 1;
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
c := c + a;
end;
write(c / n)
end.
16)
var
n, i, a: integer;
begin
i := 1;
while true do
begin
read(a);
if(a = 0) then break;
n := n + 1;
end;
write(n)
end.