===== PascalABC.NET =====
begin
var a: array[1..9] of integer;
for var i := 0 to 2 do
begin
var j := 3 * i + 1;
a[j] := j + 2;
a[j + 1] := Random(50) mod a[j];
a[j + 2] := a[j] + a[ j + 1];
Print(a[j], a[j + 1], a[j + 2])
end
end.
(1 v 1) v (1 v 0)=1(истина)
((1 v 0) v 1) v 1)=1(истина)
((0 & 0) v 0 ) & (1 v 1)=0(ложь)
2. 8 и 10
Дополнительная память для телефона или для Пк
{Что сложного в том, чтобы забить данную программу в собственно Паскаль? :) }
В итоге получится 20.
1) 1 - ответ, если тебе нужно наименее к