программа для выведения числа в обратном порядке
Program p1;
Var a,b,c,s,i:integer;
Begin
Write('Введите первый член прогрессии: ');
Readln(a);
Write('Введите разность чисел прогрессии: ');
Readln(b);
Write('Введите количество чисел прогрессии: ');
Readln(c);
for i:=1 to c do
Begin
s:=s+a;
a:=a+b;
End;
Writeln('Сумма членов прогрессии: ',s);
<span>End.</span>
Надо скачать калькулятор, перевести в zip формат, после чего скачать apk
===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.
735₁₀<span> = 1011011111</span>₂
735/2 = 367 (целое частное) + (1) - остаток
367/2 = 183 + (1)
183/2 = 91 + (1)
91/2 = 45 (1)
45/2 = 22 (1)
22/2 = 11 (0)
11/2 = 5 (1)
5/2 = 2 (1)
2/2 = 1 (0)
1
Поднимаемся снизу вверх записывая слева направо.
735₁₀ = 1337₈
735/8 = 91 (7)
91/8 = 11 (3)
11/8 = 1 (3)
1
735₁₀ = 2DF₁₆
735/16 = 45 (15)
45/16 = 2 (13)
2
В качестве цифр ш<span>естнадцатеричной</span> системы счисления используются цифры от 0 до 9 и латинские буквы от A до F. Буквы A = 10, B = 11, C = 12, D = 13, E = 14, F = 15.