1) <span> Форма цилиндра С открытым верхом</span>
2) Форма прямоугольника
3) Назначение ─ игрушки
4) Материал ─ дерево
Смотря какой файл, текстовый txt
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var i:=0 to a.RowCount-1 do begin
var row:=a.Row(i);
var imin:=row.IndexMin;
Swap(row[imin],row[row.High]);
a.SetRow(i,row)
end;
Writeln('*** Полученный массив ***'); a.Println(4)
end.
1. Упростить выражение:
<span>(A→B)→C =</span>
(not A+ B)<span>→C =
not(not A +B) + C =
not(not A) * not B +C =
A* not B +C
2. Далее строим таблицу истинности:
Из которой видно, что только 3 набора переменных удовлетворяют условию.
Таблица во вложении.
</span>
Var
iNum: integer;
begin
readln(iNum);
writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
<span>end.</span>