Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
04₁₀ = 100₂
10₁₀ = 1010₂
1996₁₀ = 11111001100₂
program xxx; var a, b, min : integer; begin write('введите число а=');
readln(a);
min: =10; while a < > 0 do begin b: = a mod 10; if b < min then min: =b; a: = a div 10 end; writeln('минимальная цифра = ', min); readlnend.
смотря откуда эта формула и как вы ее применяете
похоже, что пи - просто функция без аргументов, т.е. ничего ставить не надо
ошибка в том что натуральный логарифм (-1) не существует
program summa; uses crt; var n,i: integer; s: real;
p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;
p1: =-1;
p2: =2; for i: =1 to n do
begins: =s+p1/p2;
p1: =-p1;
p2: =p2*2;
end; writeln ('s=', s); readln; end.
Популярные вопросы