Program abc;
var P,R,N,D,A,C: integer;
var B:real;
begin
write('Введите число P(Первый член прогрессии) - ');
Read(P);
write('Введите число R(Разность прогрессии) - ');
Read(R);
write('Введите число N(Число которое не может привышаться) - ');
Read(N);
D:=2*P;
A:=D+R*(N-1);
B:=A/2*N;
If (B>N) then writeln('ответ превышает число N')
else Writeln('Сумма членов арифметической прогрессии:' B);
end.
Быстро прочекал что такое арифметическая прогрессия и попытался написать код. Не суди строго если что-то не так)
Выполнить сложение 1010*2+1101*2 = 10111*2
Выполнить вычитание 101011*2-1101*2 = 11110*2
Выполнить умножение 1111*2×1101*2 = 11000011*2
Выполнить деление 010111*2:001*2 = 1111.11111111*2
Объяснение:
Выполнить сложение 1010*2+1101*2
.
+ 1 0 1 0
1 1 0 1
1 0 1 1 1
Окончательный ответ: 1010*2 + 1101*2 = 10111*2
Выполнить вычитание 101011*2-1101*2
. . .
- 1 0 1 0 1 1
1 1 0 1
0 1 1 1 1 0
Окончательный ответ: 101011*2 - 1101*2 = 11110*2
Выполнить умножение 1111*2×1101*2
x 1 1 1 1
1 1 0 1
+ 1 1 1 1
0 0 0 0
1 1 1 1
1 1 1 1
1 1 0 0 0 0 1 1
Окончательный ответ: 1111*2 × 1101*2 = 11000011*2
Выполнить деление 010111*2:001*2
- 0 1 0 1 1 1 0 0 1
0 0 1 1 1 1 1 . 1 1 1 1 1 1 1 1
- 1 1
0 0 1
- 1 0 1
0 0 1
- 1 0 0 1
0 0 1
- 1 0 0 0 0
0 0 1
- 1 1 1 1 0
0 0 1
- 1 1 1 0 1 0
0 0 1
- 1 1 1 0 0 1 0
0 0 1
- 1 1 1 0 0 0 1 0
0 0 1
- 1 1 1 0 0 0 0 1 0
0 0 1
- 1 1 1 0 0 0 0 0 1 0
0 0 1
- 1 1 1 0 0 0 0 0 0 1 0
0 0 1
1 1 1 0 0 0 0 0 0 0 1 0
Окончательный ответ: 010111*2 ÷ 001*2 = 1111.11111111*2
