Помогите пожалуйста составить программу в Pascal
Приложения:

Ответы на вопрос
Ответил Аноним
1
uses Crt;
var X, Y: real;
begin
ClrScr;
Writeln('1 Shema:');
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
if (x>=-1) and (x<=4) and (Y>=-3) and (Y<=2) then Writeln (' Принадлежит!')
else WriteLn (' Не принадлежит...');
WriteLn;
WriteLn ('2 Shema:');
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
if (x*x+y*y<=1) then writeln (' Принадлежит!')
else WriteLn (' Не принадлежит...');
ReadLn;
end.
var X, Y: real;
begin
ClrScr;
Writeln('1 Shema:');
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
if (x>=-1) and (x<=4) and (Y>=-3) and (Y<=2) then Writeln (' Принадлежит!')
else WriteLn (' Не принадлежит...');
WriteLn;
WriteLn ('2 Shema:');
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
if (x*x+y*y<=1) then writeln (' Принадлежит!')
else WriteLn (' Не принадлежит...');
ReadLn;
end.
shafikov:
Спасибо большое
Новые вопросы
Русский язык,
2 года назад
Английский язык,
2 года назад
Математика,
2 года назад
Математика,
2 года назад
Геометрия,
7 лет назад
Алгебра,
7 лет назад