Условия попадания в область:
var
x,y:real;
begin
Write('Введите координаты точки (x,y): ');
Readln(x,y);
if (x>3) and (y>2) then Writeln('Точка попадает в область')
else Writeln('Точка не попадает в область')
end.
{
Для второго условия в if надо записать
(x<-2) and (y<-4)
}
Синий и синий,
Синий и зеленый,
Синий и красный,
Зеленый и зеленый,
Зеленый и красный,
Красный и красный
6 вариантов
Ответ:
Объяснение:
и здесь в результате будет ошибка в строке
Writeln (A.B)
нужно перечислить переменные через запятую и в конце точку с запятой: Writeln (A,B);
Первая задача:
varn:integer;BEGINread(n);case n of 1,3,5,7,8,10,12: writeln(31); 2: writeln(28); 4,6,9,11:writeln(30); else writeln('Такого месяца нет');end;END.
Над второй еще подумаю, как более короткое решение записать.