Var mas:array [1..100, 1..100] of integer;i,j,n,m,sum:integer;beginsum:=0;writeln ('n');read (n);writeln ('m');read (m);for i:=1 to n do beginfor j:=1 to m do beginwriteln ('[',i,',',j,']');readln (mas[i,j]);end;end;for i:=1 to n do beginfor j:=1 to m do beginif mas[i,j]=0 then sum:=sum+1;end;end;writeln ('Kilkist nuliv = ',sum);end.
Как то так, если что не понятно, спрашивай.
Подробный ответ внутри во вложении
Var
d: integer;
begin
read(d);
writeln(24*d,' часов = ',60*24*d,' минут = ',60*60*24*d, ' секунд');
end.
# Так сойдёт?
from math import sqrt
print('Введите коэффициенты a, b, c для ax^2 + bx + c = 0 в виде "a b c", где коэффициент а не равен 0')
a, b, c = list(map(int, input().split())) # здесь поменяй способ ввода квадратного уравнения, если другой нужен
D = b ** 2 - 4 * a * c # дискриминант
if D < 0:
print("Нет решений")
elif D == 0:
x = (-1 * b + sqrt(D)) / (2 * a)
print("Уравнение имеет одно решение:", x)
else:
x1 = (-1 * b + sqrt(D)) / (2 * a)
x2 = (-1 * b - sqrt(D)) / (2 * a)
print("Уравнение имеет два решения:", x1, "и", x2)