1.Написати фрагмент програми для підрахунку суми тільки додатних із трьох даних чисел. 2.Дано три числа. Написати фрагмент програми для підрахунку кількості чисел, що дорівнюють нулю.
3.Складіть програму для обчислення виразу: max(x + y + z, x z y)+3;
4. min (x2+y2,y2+z2)-4. Значення змінних x, y, z вводяться випадковим чином.
5.Складіть програму, в якій із трьох введених із клавіатури чисел підносяться до квадрата додатні, а від’ємні залишаються без зміни.
Program Proizvedenie; //Обчислити произведение элементов второго столбца таблиці
var Tabl: array[1..4, 1..6] of Integer; i, j, P: Integer;
begin
P:=1;
For i:=1 to 4 do
For j:=1 to 6 do
begin
Write('Введіть значення елемента масиву ');
Read(Tabl[i,j]); //заповнення масиву цілими числами
end;
For i:= 1 to 4 do
P:= P * Tabl[i,2]; //умножение элементов второго столбца
writeln('Произведение элементов второго столбца= ',P);//виведення відповіді
end. //Кінець програми
Объяснение:
Изменено имя программы и переменной (чтобы не путаться)
Начальное значение переменной теперь 1, т.к. при умножении на 1 произведение не меняется
Т.к. считаем произведение элементов второго столбца, то перебираем строки от 1 до 4 и считаем произведение элементов текущей строки во втором столбце
Комментарии изменены, где необходимо, но на русском
Треугольник существует только тогда, когда сумма длин любых его двух сторон больше третьей стороны. Иначе две стороны просто "укладываются" на третьей.
Треугольник является разносторонним, если все его стороны имеют разную длину; треугольник будет равнобедренным, если любые две его стороны равны между собой, но отличны от третьей; и треугольник является равносторонним, когда все его стороны равны.
Прежде чем выяснять вид треугольника, необходимо удостовериться, что треугольник существует.
Если треугольник существует, то можно сначала проверить на неравенство три его стороны. Если они не равны друг другу, то треугольник разносторонний. Если это не так, то следующим шагом будет проверка на равенство всех сторон треугольника. Если все стороны равны, делается вывод о том, что треугольник равносторонний. Иначе остается только один вариант - равнобедренный треугольник.