256/16=16 (ост.0)
16/16=<u>1</u> (ост 0)
ответ 256=100 (ответ получается из остатков в обратном порядке, начиная с 1)
400/16=25 (ост.0)
25/16=<u>1 </u>(ост.9)
ответ 400=190
1234/16=77 (ост 2)
77/16=<u>4 </u>(ост 13 - это D)
ответ 1234=4D2
2012/16=125 (ост 12 - это C)
125/16=<u>7 </u>(ост 13 - это D)
ответ 2012=7DС
2 клетки. Потому что в условии описан квадрат, окаймление которого - пустота. Данным условиям удовлетворяет только 2 варианта:
С4 и D4. Во всех остальных случаях - беда)
Pascal
var
a,s : integer;
begin
s := 0;
readln (a);
While a <> 0 do
begin
s := s +a;
readln (a);
end;
writeln (s);
end.
#1
program Program1;var rub, dol:real;begin writeln('Введите сумму в рублях:'); readln(rub); dol:=rub/67; writeln('Сумма в доллорах= ',dol); end.
#2
program Program1;var a,b:integer;beginwriteln('Введите целое число:');readln(a);
if a>0 then b:=a-a-a;if a<0 then b:=a;if a=0 then writeln('Чило = 0');writeln('Чило a=',b); end.
Var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 do
begin
s:=0;
for j := 1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
end.