1 задание 1000кб 1500/75=20*50=1000
но я не математик :)
Насчет 8,все же,посмотрите и подумайте.
в двоичной системе это число записывается так: 10000. поэтому ответ: 4 нуля.
const DOLLAR = 68; // доллар в руб
const EURO = 75; // евро в руб
let rub = prompt("Введите сколько хотити перевести");
rub = parseInt(rub, 10);
alert("Доллары: " + rub/DOLLAR + "\nЕвро: " + rub/EURO );
Wrap enabled
uses Graph;
const
delta: array[1 .. 4] of record
X, Y: integer;
end =
((X:-1; Y: 0), (X: 0; Y:-1),
(X: 1; Y: 0), (X: 0; Y: 1));
var
grDriver, grMode, ErrCode: Integer;
len, i, j: integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode <> grOk then begin
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
readln; halt
end;
len := 10;
moveto(getmaxx div 2, getmaxy div 2);
for i := 1 to 10 do begin
for j := 1 to 2 do linerel(delta[j].X*len, delta[j].Y*len);
inc(len, 10);
for j := 3 to 4 do linerel(delta[j].X*len, delta[j].Y*len);
inc(len, 10)
end;
readln;
closegraph;
end.
Примерно