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.
Можно написать программу на каком-либо языке программирования. Например Python:
n = 66 count = 0 for i in range(67): for j in range(34): for k in range(14): for l in range(7): if n == i*1+j*2+k*5+l*10: count += 1 print('Всего
Та же программа на языке Pascal:
var i,j,k,l,n,count:integer;
begin n := 66; count := 0; for i:=0 to 66 do for j:=0 to 33 do for k:=0 to 13 do for l:=0 to 6 do if n = (i*1+j*2+k*5+l*10) then count += 1; writeln('Всего end.
