Может ошибок а не вирусов Зака чай себе антивирусник или redorganaizer для исправление ошибок
Мова - Python
a = int(input("a="))
b = int(input("b="))
c = int(input("c="))
if (a + b) > c and (b + c) > a and (a + c) > b:
if a == c and a == b and b == c:
print("Трикутник рівносторонній")
elif a == c or a == b or b == c:
print("Трикутник рівнобедрений")
else:
print("Трикутник-довільний")
else:
print("Нерівність трикутника не виконується")
Program Zadacha;
Var sum, raz, pr, ch, x, y, z: real;
Begin
randomize;
x:=random(50);
y:=random(50);
z:=random(50);
sum:= x + y + z;
Writeln('Сумма = ',sum:4:2);
raz:= x - y - z;
Writeln('Разность = ',raz:4:2);
pr:= x * y * z;
Writeln('Произведение = ',pr:4:2);
ch:= x/y; ch:= ch/z;
Writeln('Частное = ',ch:4:2);
End.<span> </span>
я не знаю как оно работает, но оно работает
(возможно, можно оптимизировать, что возможно где-то я это не учёл)
в предпоследней строке с конца ( write (ZZ[i]:5) ) цифру 5 можно изменить на какой нужно (надеюсь вы понимаете моё кривое мышление), либо можно проще write (zz[i]) , но тогда они выведутся не в строку, а столбцом
Ответ:
var
a: array [1..3] of Integer;
i, imin: Integer;
begin
for i := Low (a) to High (a) do begin
Write (i, ' число: ');
ReadLn (a [i]);
end;
imin := 0;
for i := Low (a) to High (a) do begin
if a [i] mod 2 = 0 then
if imin = 0 then
imin := i
else if a [i] < a [imin] then
imin := i;
end;
if imin <> 0 then
WriteLn ('Наименьшее четное = ', a [imin])
else
WriteLn ('Четных чисел нет.');
ReadLn;
end.
