Var a,b:real;
begin
read(a,b);
if a>b then
begin
a:=a-b;
b:=2*b+a;
end
else
begin
b:=b-a;
a:=2*a+b;
end;
write(a,' ',b)
<span>end.</span>
Не(х<10) или не(х четное) равнозначно х>=10 или x нечетное
=>
x - нечетное число или >=10
т.о. число, не подходящее ни под одно из этих условий - 8
ответ: 4) 8
1.
, 6бит на символ, 6*100 = 600бит = 75байт.
2. 3.5кб * 1024 = 3584байт <=> 3584 символов (1 символ - 1 байт)
Вроде бы так, но когда программа выполняется, то из-за такого большого кол-ва клеток (1000х1000) все отображается как один черный квадрат ))) если сделать кол-во поменьше (например 100х100), то клетки будут видны (скрин).
uses graphABC;
var
w, h, i: integer;
begin
setwindowsize(1010, 1010);
w := windowwidth div 1000;
h := windowheight div 1000;
for i := 1 to 1000 do
begin
line(i * w, 0, i * w, windowheight);
line(0, i * h, windowwidth, i * h);
end;
end.
