Function to_base(n: integer; base: integer): integer;
begin
if n = 0 then
to_base := 0
else
to_base := (n mod base) + 10 * to_base(n div base, base);
end;
var
n: integer;
begin
readln(n);
writeln(to_base(n, 3));
writeln(to_base(n, 5));
<span>end.</span>
1)9
2)12
3)31
4)4
5)2
6)1
7)0
8)10
Ответ:7,6,5,4,1,8,2,3.
#include <cstdlib>#include <iostream>#include <iomanip>#include <cmath>
using namespace std;
int main(){ setlocale(0, ""); double x, y, a, b, xk, xn, dx; a = 1.4; b = 2.5; cout << "Ââåäèòå xn,xk, dx = " << endl; cin >> xn; cin >> xk; cin >> dx; x = xn; cout << "Tabl" << endl; cout << "+-----------+" << endl; cout << "¦ x ¦ y ¦" << endl; while (x <= xk) { y = (log10(a*x*x+b))/(a*x+1); cout << "+-----+-----¦" << endl; cout.setf(ios::fixed); cout.precision(3); cout << "¦" << x << "¦"<< y << "¦" << endl; x = x + dx; } cout << "+-----------+"; system("pause");}
A16 в16<span> = 2</span><span>582 в 10
а перевести просто пишешь у А16 степени 2.1.0 и умножаешь 10 на 16 во2+1на 16 в 1+6 на 16 в 0
</span>
<h2>№1</h2>
Факториал нуля равен единице. Если N по условию может быть отрицательным, сразу после ввода следует это проверить.
Будем хранить ответ в переменной <em>fc </em>с начальным значением 1. Будем перебирать все числа от <em>2 </em>до <em>N </em>и домножать <em>fc </em>на каждое из них.
<h3>Код</h3>
var
n, i, fc: longint;
begin
read(n);
fc := 1;
for i := 2 to n do
fc := fc * i;
writeln(fc);
end.
<h2>№2</h2>
Используем цикл for, но вместо to будем писать downto.
<h3>Код</h3>
var
i: integer;
begin
for i := 28 downto 17 do
writeln(i);
end.
