N = число в десятичной системе
res = пустая строка
WHILE n не равно 0:
res = привести в строку(остаток от деления n на 2)+res
n = n/2 (нужно делить без остатка Например: (3/2)= 1)
ЗАКОНЧИТЬ WHILE
вывести res
1. Набираешь 3л ведро.
2. Переливаешь в 7л ведро.
3. Снова набираешь 3л ведро и переливаешь в 7л ведро. После в 7л ведре будет 6л, переливаешь еще литр с 3л.
4. И в ведре остается 2 литра.
У человека 5 органов чувств(зрение,слух,осязание,вкус,обоняние). Больше всего человек информации получает с помощью зрения, а потом слуха.
Program z1;
var a:array[1..10] of byte;
i,j,k,r:byte;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(100);
write(a[i],' ');
a[i]:=(a[i] div 10)+(a[i] mod 10)
end;
k:=1;writeln('');
for j:=0 to 18 do begin
i:=k;
while i<=10 do begin
if a[i]=j then begin
r:=a[k];a[k]:=a[i];a[i]:=r;
write(a[k],' ')
end;
i:=i+1
end
end;
readln
end.