var k,i,j:integer;
a:array[1..5]of integer;
begin
for i:=1 to 5 do begin
for j:=1 to 4 do begin
if a[j]>a[j+1] then begin
k:=a[j+1];
a[j+1]:=a[j];
a[j]:=k;
end;
end;
end;
end.
#include <iostream>
#include <cmath>
using namespace std;
bool is_in_square(double x, double y)
{
return ((fabs(x)<=1)&&(fabs(y)<=1));
}
int main()
{
double x, y;
cin >> x >> y;
if (is_in_square(x,y)) cout << "YES";
else cout << "No";
return 0;
}
Пример:
0.5 -0.6
YES
Ответ:
var
ar: array [1..20] of Integer;
a, b, i: Integer;
begin
Randomize;
for i := Low (ar) to High (ar) do begin
ar [i] := Random (47) - 12;
Write (ar [i], ' ');
end;
WriteLn;
Write ('A, B = ');
ReadLn (a, b);
for i := Low (ar) to High (ar) do
if (ar [i] >= a) and (ar [i] <= b) then
Write (ar [i], ' ');
ReadLn;
end.
Program P1;
uses
Graph,Crt;
var
d,m,i,k : integer;
x,y,x0,y0,r : integer;
a,b : real;
begin
Ram - оперативная память
Фирма, чей компьютер является стандартом... ну не знаю, давайте мыслить логически, epson выпускает принтеры, следовательно она отпадает, intel процы производит, а вот IBM - старая компания.... у меня до сих пор он есть:) короче ответ IBM
Дальше ничего не видно :)