1. Треугольник будет существовать если будут выполнятся одновременно три неравенства:
x + y > z
x + z > y
y + z > x
Программа:
var x, y, z: real;
begin
writeln('Введите стороны треугольника x, y, z: ');
read(x, y, z);
if (x + y > z) and (x + z > y) and (y + z > x)
then writeln('Треугольник существует')
else writeln('Треугольник не существует');
end.
2. Думаю, здесь излишни объяснения.
Программа:
var x, y, z: real;
begin
writeln('Введите три числа: ');
read(x, y, z);
writeln('В интервале (1; 3) лежат числа: ');
if (x > 1) and (x < 3) then writeln(x);
if (y > 1) and (y < 3) then writeln(y);
if (z > 1) and (z < 3) then writeln(z);
end.
Блок-схемы в приложении:
Антивирусная программа (антивирус) — программа для обнаружения компьютерных вирусов и лечения инфицированных файлов, а также для профилактики — предотвращения заражения файлов или операционной системы вредоносным кодом (например, с помощью вакцинации). Современные антивирусные программы могут обнаруживать сотни тысяч вирусов, но ни одна из них не даст 100 % защиты.
1024 = 2 в 10 степени, значит глубина цвета = 10 бит, всего пикселов 16*24 = 384. Объём = 384*10 = 3840 бит = 480 байт
var
a, d, c, k: <em>real</em>;
begin
readln(a, d, c, k);
writeln((a - (d + 21) * 2) * (c - 7 * k));
end.