VAR a,b:INTEGER;
begin
Readln(b);
a:=b*b*b*b*b*b*b;
writeln(a);
<span>end.</span>
1) Если подразумевается a>=0, то верно.
2) Неверно, нужны скобки: (x > 0) or (y < 0)
3) Если подразумевается c <> 10, то верно.
4) Верно.
5) Неверно.
6) Неверно.
7) Неверно.
8) Неверно.
9) Если в 9 x>=y, то верно (если есть 9).
10) Верно.
11) Неверно, можно исправить так: (x = y) and (y = z).
Ответ: 1, 3, 4, 10.
Формула
F = !(A&B) & (!BvC)
1) 8, 10, 16
2) 11111(2), 37(8), 31(10), 1F(16)
3) -61(10) = 11000011(2); 99(10) = 1100011(2)
4) 892310
5) 32
6) 1809
procedure summa(s, num: integer);
begin
s:= s + num;
end;
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);
write(sum);
end.