//PascalABC.NET 3.2 сборка 1318
uses
GraphABC;
Var
i:integer;
begin
for i:=5 downto 1 do
circle(60,60,i*10);
end.
Без труда не вытащишь рыбку из труда
Pascal
read(A) {Ввод А}
А:=А*А;
А:=А*А;
write(A) {Вывод А}
1) Щелчке правой кнопки мыши по экрану рабочего стола.
2) Наведите курсор на слово "создать", в всплывающем окне.
3) Щелкните на "папку" (левая кнопка мыши).
4) Создаться папка "новая папка."
5) Введите название папки.
6) Нажмите enter.
7) Откройте "мой компьютер" (пуск, мой компьютер).
8) Сделайте "мой компьютер" на пол экрана (вверху справа)
9) Перетащите папку в диск С.
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = -3
y = 3
Да</span>