<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>//№7</u>
begin
var (s,k,p):=(0,0,BigInteger(1));
var n:integer;
repeat
n:=ReadInteger;
s+=n; p*=n; k+=1;
until s>200;
Writeln('Кол-во= ',k,', S=',s,' П= ',p,', Ср.арифм= ',s/k)
end.
<u>Пример</u>
56
-231
220
118
-52
31
45
110
Кол-во= 8, S=297 П= 2679630617664000, Ср.арифм= 37.125
<u>//№8</u>
begin
var n:=Abs(ReadlnInteger('n='));
var x:=ReadlnInteger('Введите цифру');
var k:=0;
while n>0 do begin
var d:=n mod 10;
if d=x then k+=1;
n:=n div 10
end;
Writeln('Цифра ',x,' встретилась ',k,' раз(а)')
end.
<u>Пример</u>
n= 1235361212
Введите цифру 2
Цифра 2 встретилась 3 раз(а)
<u>//№9</u>
begin
var (a,b):=ReadInteger2('Введите a и b:');
for var i:=a to b do
if i.IsEven and (i mod 7<>0) then begin
var j:=Sqr(BigInteger(i));
Writeln(i:10,j:19,i*j:28)
end
end.
<u>Примеры</u>
Введите a и b: 123456789 123456796
123456790 15241578997104100 1881676417513891481839000
123456792 15241579490931264 1881676508963366945945088
123456794 15241579984758436 1881676600412845373014184
123456796 15241580478585616 1881676691862326763046336
Введите a и b: 6 20
6 36 216
8 64 512
10 100 1000
12 144 1728
16 256 4096
18 324 5832
20 400 8000
Передача голоса по каналам Интернет (протокол VOIP - Voice Over IP), которую еще называют IP-телефонией, не требует для осуществления никаких дополнительных затрат, потому что сеть Интернет и так имеется, а все необходимое оборудование и программное обеспечение установлено у абонентов. Поэтому IP-телефония по сути бесплатна, если у абонентов безлимитный тариф на подключение Интернет. Обычная международная телефонная связь подразумевает оплату телефонным компаниям за услугу предоставления телефонного соединения и использование каналов связи.
Ответ:
77₈ = 7*8⁰ + 7*8¹ = 63₁₀
73₁₆ = 3*16⁰ + 7*16¹ = 115₁₀
64₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ = 1000000₂
114₁₀ = 0*2⁰ + 1*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ = 1110010₂
100₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1100100₂
Объяснение:
число С может быть от 1000000₂ до 1110010₂
например можно взять 100₁₀ = 1100100₂
BEGIN
INT I, SUM;
/* ЧИСЛО МОНЕТОК */
SUM := 0;
FOR (I := 0; I <= 10000; I++)
BEGIN
SUM := SUM + I;
END;
/* РЕЗУЛЬТАТ */
PRINTLN ('ЧИСЛО МОНЕТОК: ' + STR(SUM));
END