Var s: integer;
begin
s := random(1000)+2;
writeln(s);
if (s mod 2 = 0) then writeln('Четное.')
else
writeln('Нечетное')
<span>end.</span>
1. Для проверки на возможность существования треугольника, скорее всего подразумевается условие неравенства треугольника, согласно которому, ни одна сторона не может быть больше суммы двух других сторон. А проверить прямоугольный треугольник или нет достаточно легко по теореме Пифагора
VAR a, b, c: INTEGER; {длины сторон треугольника}
BEGIN
READLN (a, b, c);
IF (a>b+c) OR (b>a+c) OR (c>a+b) THEN WRITELN ('Такого треугольника не существует') ELSE BEGIN
IF (SQR(a) = SQR(b) + SQR(c)) OR (SQR(b) = SQR (a) + SQR (c)) OR (SQR(c) = SQR (a) + SQR (b)) THEN WRITELN ('Треугольник прямоугольный') ELSE WRITELN ('Треугольник не прямоугольный');
END.
2.
VAR a, b: INTEGER;
BEGIN
READLN (a, b);
WRITE ('Даны числа ', a,' и ', b,' .');
IF a>b THEN WRITELN ('Квадрат большего из них равен ', SQR(a));
IF b>a THEN WRITELN ('Квадрат большего из них равен ', SQR(b));
END.
3. Немного лень над ней думать, если честно.
2) A = True; B = False; C = True
A \/ С /\ (B \/ ¬B → ¬C) = A \/ С /\ (B \/ ¬C) = 1 (True)
3) Вес одного пикселя = 8 бит = 1 байт
(1024 * 768 * 1) / 1024 = 768 Кбайт
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=21;
repeat
n+=1
until (n mod 7=0) and (n mod 10=1);
n.Println
end.
<u>Результат</u>
91