Она напоминает мне корни деревьев.
1)
program chik;
var i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 10 do
writeln(i:2,'*',j:2,'=',i*j:2);
<span>end.
</span>2)
program chik2;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 8 do
if(i mod 2=1)and(j mod 2=0)then writeln(i:2,'*',j:2,'=',i*j:2);
end.
3.
1) Пусть А - Международный ж. день, B - день защитника отечества. A∨B
2) А - все отдыхают, В - все не ходят в школу. A∧B
3) А - чётное, B - составное. A∧B
4.
(1∨0) ∧ (0∧A) ∨ (1∨0)= (1+0)*(0*А)+(1+0) = 1 * 0 + 1 = 1
Ответ: 1
5.
1 строка - 0, вторая строка - 0, третья строка - 1, четвёртая строка - 0.
6.
(12>2)+(12<5)*(12>10)=1+0*1= 1 (истинно)
7. решение на прикреплённой фотографии
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191