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. Немного лень над ней думать, если честно.
А) integer так как 2 в последнем слагаемом сократится
б) однозначно real, так как X в переменных описан явно как real
в) real (все переменные описаны как real)
г) real (все из-за корня квадратного)
1. 662 Мб=1024*662 Кбайт=1024*1024*662 байт= <span>1024*1024*8*662 бит=5553258496 бит
2. N=2^i, 256=2^i1, 16=2^i2, i1=8 бит, i2=4 бит.
Объем файла=V=кол-во пикселей*i
V1/V2=i1/i2=2</span>
var X = [], N = prompt("N:"), кол = 0, сум = 0; for (let сч = 0; сч < N; сч++) X.push(parseInt(prompt())); X.forEach(function (зн) { if (зн < 30) кол++; if (зн > 12) сум += зн; }); alert(сум + " " + кол);