Это напишите программу, которая ответит на вопрос: является ли треугольник со сторонами a, b, c равносторонним? является ли треугольник со сторонами a, b, c равнобедренным? существует ли треугольник со сторонами a, b, c? лежит ли точка с координатами a и b в первой координатной четверти? являются ли заданные числа b и c квадратом и кубом числа a? требования: программа вводит три вещественных числа и выводит пять строк с ответами на каждый из вопросов 1-5. имя файла с программой = вашей фамилии

Укажу часть решения (на все, увы, нет времени, работать надо - и как бы вы меня не уговаривали, все же сделаю это на паскале, но если нужно будет - исправлю под плюсы): 1) чтобы проверить, является ли треугольник равносторонним, нужно узнать, равны ли все его стороны: if (a = b) and (b = c) then writeln('true') else writeln('false'); 2) у равнобедренного треугольника должны быть равны две стороны: if (a =b) or (b = c) or (a = c) then writeln('true') else writeln('false'); 3) для существования треугольника сумма любых его двух сторон должна быть больше третьей: if (a + b > c) and (a + c > b) and (b + c > a) then writeln('true') else writeln('false'); 4) тут всё просто, первая четверть это неотрицательные значения для осей абсцисс и ординат: if (a > = 0) and (b > = 0) then writeln('true') else writeln('false'); с последним разберешься сам, там тоже несложно. в единую программу, надеюсь, сможет восьмиклассник собрать части кода?

1)это направление куда будут двигаться все обьекты

2)число равное тому сколько раз исполнитель повторит ваш алгоритм

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

 

writeln(min);

writeln(kol_nol);

end;