Var s,i: real;begini:=1;s:=12;if s<=100 then i:=i+1 elses:=1.2*s+2;writeln(s);<span>end.
Так попробуй</span>
Var
n,k,s,d:longint;
begin
Write('Введите натуральное число: ); Readln(n);
s:=0; k:=0;
while n<>0 do begin
d:=n mod 10;
Inc(k);
s:=s+d;
n:=n div 10
end;
Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26
Если боишься сделать ошибку, то не бойся. Бери и делай. Будет ошибка - будешь её понимать, и исправлять.
Задача достаточно проста, чтобы её можно было решить без ошибок. Нуууу, если только пофантазировать, то можно предположить что кто-либо может забыть, что массивы могут быть как чётной, так и нечётной длины.
Ответ:
14638(десячичная система) -
пронумеруем разряды
4 3 2 1 0
1 4 6 4 8
теперь запишем выражение
14638(десячичная система) = 1 х 10^4 + 4 х 10^3 + 6 x 10^2 + 4 x 10^1 + 8 x 10^0
Объяснение: