If (xa * xa + ya * ya) < r * r then внутри
if (xa * xa + ya * ya) > r * r then во вне
if (xa * xa + ya * ya) = r * r then на
Расширение первого файла третьей буквой может иметь только символ С, а во втором случае абсолютно любой и необязательно один. Поэтому нельзя сказать, что приведенные записи одинаковые и найдут одинаковые файлы
Pascal:
var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.
1.взять миску
2.открыть холодильник
3.взять корм
4.закрыть холодильник
5.наложить корм в миску
6.поставить миску собаке
7.помыть миску после того как собака поела
8.вытереть мордочку собаке
9.конец