108000 байт. Просто надо перемножить 1*45*60*40.
import math
x = float(input())
y = float(input())
def small(x ,y):
return math.fabs(x) + math.fabs(y) > 2
def big(x, y):
return math.fabs(x) + math.fabs(y) < 4
if small(x, y) and big(x, y):
print("Точка принадлежит области")
else:
print("Точка не принадлежит области")
<span>где ошибка ( z=4.5), (x=1.236). Помогите
Program myprog;
const rad=3.14/180;
var a,y,z,x,cos,sin:real;
//переменные </span>x,cos,sin никак не определены, следовательно следующее выражение не будет посчитано (=0). кроме того cos и sin это встроенные функции Паскаля. Не стоит использовать их как имена переменных<span>
begin a:=(2*cos*(x-rad*30))/(1/3+((sin*2)*(y+2)));
writeln('z=');
readln(z);
y:=(z*z/5+(z*z)/7);
writeln(' y = ',y);
writeln('введите значение x : ' );
readln(x);
// Вы ввели значение х в конце программы. Оно нигде в расчетах уже не сможет участвовать
WriteLn(' ответ:',a);
readln(a);
End.</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->Abs(t).Between(100,999))
.Count.Println
end.
<u>Пример</u>
4492 13638 -4490 418 13985 -426 5805 -26574 28710 -378 17920 1886 -24200 0
3