Var
a:longint;
begin
read(a);
if (a mod 2 = 0) then
a:= a div 2;
writeln(a);
end.
Ответ:
201101; 2102; 100121021; 10011110; 110001.
Объяснение:
Число получается делением на основание новой:
100/3 = 33 (ост 1)
33/3 = 11 (ост 0)
11/3 = 3 (ост 2)
3/3 = 0 (ост 0)
и добавляем 1 так как последний раз делили 3
10201
1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
Монитор, клавиатура, мышь,компьютерный блок питания.