Однажды когда я сидел в интернете, я наткнулся на новость о том что в районе Якутии нашли русалку, как оказалось позднее, это был манекен которого сфотографировали в процессе съемок фильма, это и называется недостоверной информацией, когда случайны фото и вырванные из контекста предложения выставляются как например новость или факт.
//V = (100 -2*h)*(100 -2*h)*h
const L = 100;
var V1, V2,h :real;
begin
v1:= 0; v2:=1; h:=10;
while (v2 - v1) >0 do
begin
v1 := (100 - 2* h)* (100 - 2* h)*h;
h := h +0.5;
v2 := (100 - 2* h)* (100 - 2* h)*h;
writeln('Высота = ', h , ', Объем ', v1);
end;
writeln('Высота = ', h , ', Максимальный объем ', v1);
<span>end.</span>
Крайние точки не учитываются. Если вам необходимо, чтобы они учитывались - замените знаки < и > на <= и >=
var
Y0,X0:integer;
begin
writeln('Введите координаты точки Y0 и X0');
readln(Y0,X0);
if ( ((X0>-6) and (X0<-3)) and ((Y0>-3) and (Y0<2)) )
or
( ((X0>-6) and (X0<-1)) and ((Y0>2) and (Y0<6)) )
then
writeln('Точка принадлежит области')
else
writeln('Точка НЕ принадлежит области')
end.
201 206 213 207 209 205 192 211 201 203 192 - информатика