1 постелить клеёнку
2намочить кисти ипоставить в стакан
3 достать краски и поставить
4 открыть краски
5 достать альбом
Program Task;
Var a, b, i: Integer;
Begin
For i := 100 To 1000 Do
Begin
a := a + i;
b := b + 1;
End;
WriteLn('Результат: ', (a / b):4:2);
ReadLn;
End.
Можно ещё разя просто задание не совсем поняла
Крайние точки не учитываются. Если вам необходимо, чтобы они учитывались - замените знаки < и > на <= и >=
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.