1. Дано 3 числа. Найти произведение двух наименьших из этих чисел написать программу **...

Question

1. Дано 3 числа. Найти произведение двух наименьших из этих чисел
написать программу на pascal

Answer 1

Первая задача
-------------------------------------------
Program DvachAnon;
var a,b,c,max:real;
begin 
  write('Введите первое число: ');
  read(a);
  write('Введите второе число: ');
  read(b);
  write('Введите третье число: ');
  read(c);
  if a>b then
     max:=a
  else
     max:=b;
  if c>max then
      max:=c;
  write ('Произведениe двух наименьших из трех чисел: ',a*b*c/max);
end.

Comments

плевать

---

Реши что ссожешь

---

и вот последние задания

---

8. Даны 3 числа. Найти разность между  наибольшим и наименьшим среди них. 

9. Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, то вывести 3. 

10. Дано натуральное число n. Если число четное и при его делении на 2 результат будет больше 10, удвоить его, иначе оставить без изменения. 

---

11. Определить, является ли треугольник со сторонами a, b, c равнобедренным. 

---

Program DvachAnon;
var n:integer;
beginwrite('Введите натуральное число:' );
read(n);
if (n mod 2 = 0) and (n/2 > 10) then
writeln(n*2)
else
writeln(n)
end.

---

Program DvachAnon;
var n:integer;
begin
write('Введите натуральное число:' );
read(n);
if (n mod 2 = 0) and (n/2 > 10) then
writeln(n*2)
else
writeln(n)
end.

---

это какая по счету задача?

---

7 вроде

---

спасиб