Var
a, b, c: real;
begin
write('Стороны треугольника: ');
read(a, b, c);
write('Площадь треугольника: ', sqrt((((a + b + c) / 2)) * (((a + b + c) / 2)-a) * (((a + b + c) / 2)-b)*(((a + b + c) / 2)-c)));
end.
var
num: integer;
begin
write('Введите двузначное число: ');
read(num);
write('Произведение чисел данного числа: ', (num MOD 10) * (((num MOD 100)-(num MOD 10)) / 10));
end.
Вот тебе последовательность, через тире координата кузнечика после после выполнения команды:
Вправо на 7 -- 7
Влево на 5 -- 2
Вправо на 7 -- 9
Влево на 5 -- 4
Вправо на 7 -- 11
Влево на 5 -- 6
Эквивалент - это цифра, стоящая после символа 'e' или 'E'. Коротко говоря, эквивалент можно преобразовать в вид
То есть, Ваша запись могла бы записаться так:
<h2>Ответ</h2>
7
Для удобства вычислений считаем, что ширина диапазона дискретизации составляет 100 В (т.е. напряжение может быть равно 0, 1, 2, .. 99 В).
При этом получаются 5 интервалов
0 - 19 В
20 - 39 В
40 - 59 В
60 - 79 В
80 - 99 В
Значение 54 В попадает в третий интервал и напряжение после дискретизации считается равным 40В (нижняя граница диапазона).
Если очень важно, чтобы и 100В попадало в диапазон дискретизации, то его ширина будут равна 101 В, что потребует ввести поправку 0.2В в границы интервалов. Ответ на задачу при этом изменится и будет нецелым.
Ответ: 40 В
Пишу на QBasic
массив создан и заполнен
PRINT "Введите количество элементов массива"
INPUT N
MIN= 150
FOR I = 1 TO N
IF I <MIN AND I>0 THEN
MIN = I
END IF
NEXT I
PRINT MIN