// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

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.

Результат
16
30

0 0

4 года назад

Создайте программу пешения зажачи.Дано 2 числа a и b.Если a положительное число,то вычислить произведение чисел a и b,иначе вычи

джан мстоян

//Pascal
var a, b:integer;
begin
readln(a,b);
if a>0 then writeln(a*b);
if (a<0) and (b<>0) then writeln(a/b)
else if (a<0) and (b=0) then writeln('Делить на 0 нехорошо!');
end.

0 0

4 года назад

Мощность алфавита составляет 128 символов. Определить информационный вес одного символа

mai24 [1]

N=128
N=2^i
Отсюда следует, что i=7бит

0 0

3 года назад

Для чого використовує комп'ютер музикант?

Artemiy-1966

А если у музыканта не ту музыкального инструмента ,то он закачевает на компьютер а который нужен инструмент!!!!¡!
понял дружок,пирожок?

0 0

4 года назад