Program Min5
var array A[1..5] of real
var i, k : integer
var min : real
BEGIN
for i := 1 to 5 do readln (A[i]); // Вводим массив
k := 1; min := A[1]; // Начальные значения мин. эл-та и его номера
for i := 2 to 5 do
begin
if A[i] < min then // Если элемент меньше минимального
begin
min := A[i]; // Устанавливаем новый минимальный элемент
k := i; // И запоминаем его номер
end;
end;
writeln ('A[', k, '] = ' min'); // Выводим минимум и его номер
END.
ГБАВ
Здесь фишка в том, что числа в ip-адресе не могут превышать 256, вот и всё:) Удачи!
IF A > В THEN N = В
IF A < C THEN N = C
N=A+B+C-A
Если я правильно понял, то вот ответ:
A < B и A > C, т.е. ответ б).
<span>45(x)+55(x)=122(x)</span>
4X+5+5X+5=X*X+2X+2
x^2+2x-4x-5x=5+5-2
x^2-7x-8 = 0
по т. Виетта:
x1=8
x2=1 - не подходит по условию задачи.
Ответ: 8
Основные правила: слушать преподавателя. Взять вещи по его разрешению. Не бегать в кабинете. Во время перемены открыть дверь кабинета,что бы комната проветрилась. Если хотите выйти во время урока,поднимите руку,спросите разрешение и выйдите.