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.
Блок-схемы в приложении:
Var a,n: integer;
begin write('Введите a: ');
readln(a);
n:=352346543;
writeln(a,n,a);
<span>end.</span>
Дано:
N1=16
N2=32
K1=100
K2=50
Найти: I
Формулы: N=2i, I=k*I
Решение:
16i=4, 32i=5
100*5=500
50*5=250
Ответ: 500 и 250
Для Paint не знаю честно, возможно в старых версиях (у меня старая) такого нет. В Photoshop помню наизусть: Нажать кнопку "Файл", нажать кнопку "Открыть", выбрать изображение, Нажать кнопку "Коррекция", нажать кнопку "обесцветить". Готово.
1000байт-1Кбайт-10Мбайт-1Гбайт