<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
44
У нас есть цикл, который звучит как (пока s<=250). Изначально s=15. После мы запускаем данный цикл, и в каждом шагу добавляем 12 до тех пор, пока s не станет больше 250. И во время каждого шага мы к переменной n (изначальна равна 4) прибавляем 2. В конце программы мы выводим n.
Надеюсь я понятно объяснил. Если что-то не понятно - спрашивайте.
Абсолютная адресация указывается знаками доллара и перед номером строки, и перед номером столбца.
Следовательно, $C$7.
Для записи часов используются 24 значения (0-23) 16<24<32 32=2^5, т.е. запись одного показания времени занимает 5 бит. То-же самое для влажности (48-62) 8<15<16 16=2^4 и температуры (13-22) 8<10<16 16=2^4. Получаем, что сообщение с 3 показателями имеет объем 5+4+4=13 бит. 13*30=390 бит
Program Perimetr;
var P, a,b,c:integer;
Begin
writeln('Введите длины сторон треугольника ');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
P:= a+b+c;
writeln('Периметр треугольника = ', P);
end.
