<span>Var x,y: real;
Begin
readln (x,y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('YES')
else writeln('NO')
End<span>.
Пример:
4 1
YES</span></span>
Var
x:integer;
begin
Writeln('x = '); readln(x);
if (x <> 0) and (x <> 5)then Writeln('y = ', 2*x/(x*(x-5)):0:5)else
Writeln('No Solution Exist');
end.
A(3)=a+2q
a(13)=a+12q
a(23)=a+22q
оригинальная формула:
a(n)=a(1)+d(n-1)
Чтобы найти сумму надо:
S(n)=((a(1)+a(n))/2)*n
Клавиaтура тут ни при чём, нужен тeкстовый редактор с поддержкой
автодополнения слов и словарём для русского языка. Почитай "Предиктивный
ввод текста" в Википeдии.
о Системный блок
- блок питания
- материнская плата
- видеокарта
- система охлаждения
- жёсткий диск
- центраальный процессор
о Монитор
о Клавиатура
о Мышь