Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите решить скорееееееее

Ответ оставил Гость

Что-то типа:


uses Crt;
var x, y:real;
begin
ClrScr;
Write(X=); ReadLn(X);
Write(Y=); ReadLn(Y);
if (X>=0) and (x<=3) and (Y>=0) and (Y<=3) then WriteLn (Yes!!!)
                                           else WriteLn(No...);
ReadLn;
end.