Преобразуем
(i*i)/(i/2) = 2*i*i/i = 2*i
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(10,i->2*i,1); a.Println;
end.
<u>Результат</u>
2 4 6 8 10 12 14 16 18 20
(X∧(Y∨!X))⇒!Y = (X∧Y)V(X∧!X)⇒!Y = X∧Y⇒!Y = !(X∧Y)∨!Y =!(X∧Y∧Y)=!(X∧Y)=
!X ∨ !Y
Таблица истинности во вложении
Ответ: переменная b будет равна 263
№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;
№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.
Sum:=0;
for i:=55 downto 42 do sum:=sum+i;