Ну в первой все просто по очереди выполняется, сначала х=3*3; затем
итоговый ответ 729.
со второй задачкой не совсем уверен, блок с кружком это инверсия?
//Pascal
const
N = 5;
var
a: array [1..N] of integer;
s: integer;
begin
s := 0;
for var i := 1 to N do
begin
a[i] := Random(100);
if (a[i] mod 2 = 0) then s := s + a[i];
write(a[i]:5);
end;
writeln;
writeln('Сумма четных: ', s);
end.
Const n=10;var a:array[1..n]of integer;i,k:integer;begink:=0;for i:=1 to n do begin read(a[i]);if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;write('таких чисел:',k);end.
<span> Животным свойственна память: они помнят дорогу к месту своего обитания, места добывания пищи; домашние животные отличают знакомых людей от незнакомых. Многие животные обладают обостренным обонянием, несущим им ценную информацию.</span>