var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
writeln('Skolko elementov');
read(n);
s:=0; s1:=0;
randomize;
for i:=1 to n do
begin
a[i]:=random(10);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a[i] mod 2=0) then s:=s+a[i] else s1:=s1+a[i];
end;
end;
writeln('Summa chetnix chisel = ',s);
writeln('Summa ne chetnix chisel ',s1);
end.
Переводим в 2-ную систему. Для этого делим всё время на 2 с остатком:
6 / 2 = 3 (остаток 0)
3 / 2 = 1 (остаток 1)
Выписываем последний результат деления (1) и все остатки, начиная с конца:
1 1 0
Таким образом:
Аналогично:
Умножаем: 110 х 100 = 11000 (тут действует такое же правило, что и для обычных десятичных чисел: чтобы умножить на 10, 100, 1000, 10000 и т.д., достаточно просто дописать справа столько нулей, сколько их есть в этом множителе).
1) 9310-2=9308
2) 9308 раскладывается на множители:
9308=4*13*179
9310 | 13
9308 |----------
------- | 716 | 13
2 715|---------
------| 55 | 13
1 | 52 |------ 9310 (10сс) =4312 (13сс)
----| 4
3 ответ N=13
Program qwerty;uses crt, graphabc;var x,x0,y0,k:integer; y:real; beginx0:=320;y0:=240;k:=50;for x:= -320 to 320 do beginif x<0 then y:=x*xelse if (x>=0) and (x<10) then y:=xelse if x>=10 then y:=1/xend;end.
Вы "счетчик" в real объявили, а он должен быть integer