Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>
1)
// PascalABC.NET 3.3
begin
var n:=ReadInteger('n =');
Range(1,n).Select(i->i*i).Println;
end.
Пример:
n = 5
1 4 9 16 25
2)
<span>var n,i: integer;
begin
write('N = ');
readln(n);
i:=0;
while (i<n) do
begin
i:=i+1;
write(i*i,' ');
end;
end<span>.
3)
var n,i: integer;
begin
write('N = ');
readln(n);
i:=0;
repeat
i:=i+1;
write(i*i,' ');
until i=n;
end.
Пример:
<span>N = 5
1 4 9 16 25</span></span></span>
101-5
110-6
111-7
вот,их без решения даже можно
28800 бит/с = 3600 байт = 3,515625 Кб
Ответ: <span>а)3600 байт</span>
<em>Это устройство - дисковод.</em>