Var a,b,c,n,n2,z:integer; begin write('введите номер первого числа n ==> '); readln(n); write('введите искомый остаток ==> z '); readln(z); b:=0; n2:=0; a:=1; while c<100 do begin c:=a+b; b:=a; a:=c; n2:=n2+1; if (n2>=n) and (c mod 5 = z) then writeln('нужное число ==> ',c); end; end.
515b - в шестнадцетиричной СС(Системе Счисления) b - под номер 11 так как 0,1..9 10(a) 11(b) 12(c) Шестнадцатиричная СС состоит из 0,1..9 10(a) 11(b) 12(c) .. 15(f)
ответ: 515b - шестнадцетиричная (16) 4305 - десятичная (10) или шестиричная (6) 9463 - десятичная (10) или десятичная (10), если отталкивать от условия "основание системы счисления должно быть больше 2 и не больше 36" а правильно я отметил я изучал 3 СС: (двоичная СС, десятичная, шестнадцетиричная, есть и другие не отрицаю)
VAR i, j, k: Integer; a, b: Array [1..5] of Array [1..5] of Integer; BEGIN For i := 1 to 5 do For j := 1 to 5 do Read(a[i][j]);
k := 1; For i := 1 to 5 do If (Odd(i)) then For j := 5 downto 1 do begin b[i][j] := a[((k-1) div 5)+1][((k-1) mod 5)+1]; Inc(k); End Else For j := 1 to 5 do begin b[i][j] := a[((k-1) div 5)+1][((k-1) mod 5)+1]; Inc(k); End;
For i := 1 to 5 do begin For j := 1 to 5 do Write(b[i][j]:2, ' '); Writeln; End; END.
begin
write('введите номер первого числа n ==> ');
readln(n);
write('введите искомый остаток ==> z ');
readln(z);
b:=0;
n2:=0;
a:=1;
while c<100 do begin
c:=a+b;
b:=a;
a:=c;
n2:=n2+1;
if (n2>=n) and (c mod 5 = z) then writeln('нужное число ==> ',c);
end;
end.