Потому что (и) значит, что условие верно толькое если все его подусловия верны; представим (и) в виде умножения, а множители: 0(неверно) и 1(верно), тогда по правилам умножения получится: 1*0=0, 0*1=0, 0*0=0, 1*1=1, т.е если оба множители 1(верны), то и все выражение верно. со сложением также: или - значит выражение верно, если одно из условий выполнятся, берем слагаемые: 0(неверно) и 1(верно), по правилам сложения: 1+0=1, 0+1=1, 0+0=0, 1+1=1, т.е если хотя бы 1 слагаемое верно, то и все выражение верно.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.SelectMany(x->x).ToArray; var nn:=ReadInteger('1. Введите число N:'); Write('Максимальный из элементов, не превосходящий N'); if nn<b.Min then Writeln(', не существует') else Writeln(', равен ',b.Where(x->x<=nn).Max); Write('2. Максимальный элемент в массиве ['); var i:=b.IndexMax; Writeln(i div n+1,',',i mod n+1,']=',a[i div n,i mod n]) end.
program raf105;
var a,b:integer;
begin
write('Введите два числа: ');
readln(a,b);
if ((a mod 10) = 3) and ((b mod 10) = 3)
then writeln('Оба заканчиваются на 3: Верно')
else writeln('Оба заканчиваются на 3: Неверно');
if ((a mod 10) = 2) or ((a mod 10) = 4) or ((b mod 10) = 2) or ((b mod 10) = 4)
then writeln('Ни одно не заканчивается на 2 или 4: Неверно')
else writeln('Ни одно не заканчивается на 2 или 4: Верно');
end.
Программа написана на языке PascalABC.NET