Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>
А) Объект: человек;
Величина: цвет волос;
Значение: ражий.
б) Объект: арбуз;
Величина: вес;
Значение: семь килограмм.
в) Объект: чашка;
Величина: материал;
Значение: фарфор.
г) Объект: монитор;
Величина: диагональ;
Значение: семнадцать дюймов.
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.
Тип информатика формулу или программу?
Если завтра будет дождь, то я возьму с собой зонт.
Неверно, что Земля плоская и находится на трех слонах или черепахах.
Неверно, что на олимпиаде по математике нам дают задания по биологии и русскому языку или литературе.
Неверно, что клавиатура и мышь используются для вывода информации или отображения информации.