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>
Var K:array [1..15] of integer;
z:integer;
begin
for i:=1 to 15 do
k:= random(56)-20;
z:=0;
for i:=1 to 15 do
if k[i]>0 then z:=z+k[i];
for i:=1 to 15 do
writeln (z);
end.
Начало и доп знаки доставь
Разбиваем данный текст по двое символов, далее, с помощью таблицы, расшифровываем и получаем слово — PROCEDURE
Верно, каждый знак=1 разряду двоичного (например) кода
E:\*.*
A:\<span>economics.*
C:\??????.xls
J:\T??.*</span>