1. Делаем замены, упрощающие понимание
- "не(число делится на 7)" эквивалентно "<span>число не делится на 7"
- </span>"<span>не(число >32)" эквивалентно "</span><span>число ≤ 32"
2. Переписываем исходное утверждение в новой формулировке:
</span><span>Для какого из приведённых чисел ложно выражение</span>
"<span>число не делится на 7" ИЛИ </span>"число ≤ 32"
Если два высказывания связаны по ИЛИ, то выражение ложно, когда ложны оба высказывания.
Итак, условие ложно если:
- число делится на 7 И ПРИ ЭТОМ число больше 32.
Это <u>любые числа, которые больше 32, делящиеся на 7.</u>
Program s;
var
a,b:integer;
begin
readln(b);
for a:=1 to b do
if a mod 2 = 0 then writeln(a*a) else writeln('-1');
end.
На с++
for (i=1,i<= n+1, i++)
cin >> a[i];
for (i=1, i<=n, i++)
if a[i]<6
k=k+1;
cout<< "k";<span>
</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln('*** Исходный массив ***');
var k:=4;
var a:=MatrRandom(k+1,k+1,-99,99);
for var i:=0 to k do a[i,i]:=-1;
a.Println(4); Writeln(4*k*'-');
var s:=a.ElementsByRow; // последовательность, памяти не занимает
Writeln('Количество элементов, оканчивающихся на ноль: ',
s.Where(t->t mod 10=0).Count);
Writeln('Количество отрицательных элементов: ',
s.Where(t->t<0).Count);
Writeln('Количество нулевых элементов: ',
s.Where(t->t=0).Count);
Write('Сумма элементов побочной лиагонали: ');
var sum:=0;
for var i:=0 to k do sum+=a[i,4-i];
Writeln(sum)
end.