program raf105;
var abc,a,sum,count: integer;
begin
write('Введите число: ');
readln(abc);
count:= -1;
repeat
a:= abc mod 10;
sum:= sum+a;
count:= count+1;
abc:= abc div 10;
until a=0;
writeln('Сумма цифр: ',sum);
writeln('Количество цифр: ',count);
end.
Для того чтобы объединить две строки в одну, нужно установить курсор на начале второй строки и нажать клавишу backspace.
Для того чтобы объединить две строки в одну, нужно установить курсор между двумя строками, выделив пробел между ними и нажать клавишу backspace.
После упрощения получим:
¬AvBvC
Лист Excel живой. Копируем элементы, подключаем клетки автоматически заполняется таблица.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Ответ:
7
Объяснение:
p:=Pos('o',s);
индекс начала подстроки 'o' в строке s, база = 1
V104:=O87/P17
Если таблицы нет, то тогда вот ответ