Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program zadacha;
uses crt;
var otvet: real;
begin
otvet: = ((4785**45*45))/50;
writeln(otvet: 5: 5);
readkey;
end.
101=1*8^0+0*8^1+1*8^2=1*1+0+64=(65) в десятичной
1в=в*16^0+1*16^1=12*1+1*16=12+16=28 в десятичной
65-28=37
38 в десятичной , но такого ответа нет, значит надо перевести 37 в двоичную систему. для этого 38 делим на 2 пока делится
38/2=19 остаток0
19/2=9 остаток 1, уже видно что двоичный второй ответ не подходит, там нет нуля.
попробуем переведем в восьмеричную, для этого делим 38 на 8.
38/8=4 остаток 6, получается 46 в 8 сс. ответ 4
program p_1
var
a: string
writeln ('vvedite nazvanie rek');
read (a);
if (a='волга,днепро,нёман,енисей')then
writeln ('в беларуси протекают только днепро,нёман');
var a,b,c,s,p: real;
read(a,b,c);
p: =(a+b+c)/2;
s: =sqrt(p*(p-a)*(p-b)*(p-c));
write(s: 0: 2);
вроде так
Популярные вопросы