Т.е. "4" выходит?) Вот решение, но можно было короче, а можно было .NET подключить ещё... Но это вот классика)
var
a, b, c, d, f, P: real;
begin
readln(a, b, c, d, f);
P := (a + b + c + d + f) / 5;
writeln(P);
<span>end.</span>

0 0

4 года назад

Переведите в двоичную систему число 91А принадлежащее 16с/с

Алексей Поляков [7]

$91A_{16} = 9\cdot16^2 + 1\cdot16^1 + 10\cdot16^0 = 2304 + 16 + 10 = 2330_{10}$

Остатки от деления:

2330 | 2 => 0
1165 | 2 => 1
582 | 2 => 0
291 | 2 => 1
145 | 2 => 1
72 | 2 => 0
36 | 2 => 0
18 | 2 => 0
9 | 2 => 1
4 | 2 => 0
2 | 2 => 0
1 | 2 => 1

Записываем в обратном порядке $2330_{10} = 100100011010_{2}$

Ответ: 100100011010

<em>Есть еще способ через таблицы, но их надо иметь</em>

0 0

4 года назад

1. Составить программу вычисления 2-ой, 3-ей и 4-ой степени числа A и возвращения этих степеней в переменных B, C, D. Разработат

fackoff

Procedure ABCD(Const A:real; Var B,C,D:real);
Begin
B:=A*A;
C:=B*A;
D:=C*A;
End;
Var
A,B,C,D:real;
Begin
Write('A = ');ReadLn(A);
ABCD(A,B,C,D);
WriteLn(A,' ',B,' ',C,' ',D);
End.

Пример вычислений для 10-ти разных чисел:

A = 1
1 1 1 1

A = 2
2 4 8 16

A = 3
3 9 27 81

A = -10
-10 100 -1000 10000

A = 3.141592
3.141592 9.869600294464 31.0062573282858 97.4090099724839

A = 111
111 12321 1367631 151807041

A = 6.66
6.66 44.3556 295.408296 1967.41925136

A = -2.718121812
-2.718121812 7.38818618487016 -20.0819900202127 54.5852951023063

A = 789456123
789456123 6.23240970142191E+17 4.92021399983213E+26 3.8842930686378E+35

A = 123456789
123456789 1.52415787501905E+16 1.88167637178915E+24 2.32305722798259E+32

0 0

4 года назад

Реализуйте решение задачи, программируя на Паскале. Начальный вклад в банк составляет x=300000 рублей. Через сколько лет он стан

AHTOH228

Var n:integer;
x:real;
begin
n:=0;
x:=300000;
while x<550500 do
begin
x:=x+0.11*x;
n:=n+1;
end;
writeln(n);
readln;
end.

0 0

4 года назад