<span>import math as m x = int(input('x = ')) y = int(input('y = ')) a = b = <span>3 </span>c = m.sqrt(pow(a,2)+pow(b,2)) z = -<span>3 </span>S1 =1/2*x*y S = 1/2*a*b if S1<= S: print("Площа заштрихованої зони ", S) print("Точка з координатами [",x,',',y,'] знаходиться в 1 площині ') print("Точка з координатами [",x,',',y,'] належить заштрихованій площині ')
elif (x < 0) and ( y > 0): print("Точка з координатами [",x,',',y,'] знаходиться в 2 площині ')
elif(x > 0) and ( y < 0): print("Точка з координатами [",x,',',y,'] знаходиться в 4 площині ')
elif (x >= z) and ( y >= z): print("Точка з координатами [",x,',',y,'] знаходиться в 3 площині ') print("Точка з координатами [",x,',',y,'] належить заштрихованій площині ') else: print("Точка з координатами [",x,',',y,'] знаходиться в 1 площині ') print("Точка з координатами [",x,',',y,'] HE належить заштрихованій площині ')</span>
Program n1; var n,sum,p: integer; begin readln(n); sum:=0; p:=1; while n<>0 do begin sum:=sum+n mod 10; p:=p*(n mod 10); n:= n div 10; end; writeln('сумма цифр: ',sum); write('произведение: ',p); end.
begin Write('Введите натуральное четырехзначное число: '); Readln(n); if (n > 9999) or (n < 1000) then Writeln('Число должно быть четырехзначным') else begin a := n div 1000; d := n mod 10; n := (n div 10) mod 100; b := n div 10; c := n mod 10; s := a + b + c + d; p := a * b * c * d; Writeln('Сумма цифр равна ', s, ', а их произведение равно ', p) end end.
<em><u>Тестовое решение:</u></em> Введите натуральное четырехзначное число: 2345 Сумма цифр равна 14, а их произведение равно 120