<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
Result+=1;
n:=n div 10
end
end;
function nDigits(s:string):=s.Length; // если строка
begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.
<u>Результат</u>
16
30
<u>Немецкий ученый Лейбниц</u><span>, развив идею Паскаля, </span><u>создал механический арифмометр</u>, <span>на котором можно было выполнять все четыре арифметические операции с многозначными числами. Позднее арифмометр многократно совершенствовался, </span><u>в России изобретателями П.Л. Чебышевым и В.Т. Однером были также созданы арифмометры.</u>
Решение с объяснением на фото
Ответ:
Объяснение:
#include <iostream>
using namespace std;
void cycle_for() {
int sum = 0;
for (int i = 0; i <= 80; i++) if (i % 4 == 0) sum += i;
cout << "Cycle for: " << sum << endl;
}
void cycle_while() {
int i = 0, sum = 0;
while (i <= 80) {
if (i % 4 == 0) sum += i;
i++;
}
cout << "Cycle while: " << sum << endl;
}
void cycle_do_while() {
int i = 0, sum = 0;
do {
if (i % 4 == 0) sum += i;
i++;
} while (i <= 81);
cout << "Cycle do while: " << sum;
}
int main() {
cycle_for();
cycle_while();
cycle_do_while();
}
Ответ:
Объяснение:
110101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 53₁₀
53₁₀ = 5*8⁰ + 6*8¹ = 65₈
53₁₀ = 5*16⁰ + 3*16¹ = 35₁₆
217₈ = 7*8⁰ + 1*8¹ + 2*8² = 143₁₀
143₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 10001111₂
143₁₀ = 15*16⁰ + 8*16¹ = 8F₁₆
216₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11011000₂
216₁₀ = 0*8⁰ + 3*8¹ + 3*8² = 330₈
216₁₀ = 8*16⁰ + 13*16¹ = D8₁₆
4AC₁₆ = C*16⁰ + A*16¹ + 4*16² = 1196₁₀
1196₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 0*2⁸ + 0*2⁹ + 1*2¹⁰ = 10010101100₂
1196₁₀ = 4*8⁰ + 5*8¹ + 2*8² + 2*8³ = 2254₈