<span>таблица значений функций
</span> x: -1 7 3 0
у: 4 5 1 5
begin
var n := ReadInteger;
if n mod 25 = 0 then
Println(25, n div 25)
else
begin
var (n1, n2) := (24, 25);
var r: integer;
repeat
for var i := 1 to n div n1 do
begin
r := (n - n1 * i) mod n2;
if r = 0 then
begin
Println(n1, i + (n - n1 * i) div n2);
exit
end;
end;
Dec(n1);
Dec(n2);
until n1 = 0;
end;
end.
===== PascalABC.NET =====
Написал программу на языке QBasic, так как вы не указали язык.
PASCAL
var i:integer;
begin
i:=10;
while i <100 do
begin
write(i,' ');
i:=i+2;
end;
end.
Что бы перевести из 10-но с.с в двоичную,необходимо данное числа делить на основание переводимой с.с (т.е на 2),до тех пор пока частное не станет меньше или равное остатка! потом переписываем ответ с последнего частного и всех последующих остатков(т.е с конца)
(...) - системы счисления, пишется внизу
1995 (10) = 11111001011 (2)
1997 (10) = 11111001101 (2)