Предмет: Информатика,
автор: rabbit94
Помогите, пожалуйста!!!
информатика, цикл repet
1) Определить сумму и количество цифр числа. Число вводится с
Клавиатуры.
Итог, к примеру: n= 12345
Сумма цифр числа равна 15
Количество цифр в числе 5
Ответы
Автор ответа:
1
program p1;
var a,s,k: integer;
begin
write('Введите число: ');
readln(a);
s:=0;
k:=0;
repeat
s:= s+a mod 10;
k:= k+1;
a:= a div 10;
until a=0;
writeln('Сумма цифр числа равна ',s);
writeln('Количество цифр в числе ',k);
end.
Пример:
Введите число: 12345
Сумма цифр числа равна 15
Количество цифр в числе 5
Похожие вопросы
Предмет: Алгебра,
автор: zirkasuper05
Предмет: Биология,
автор: stalker96321478520
Предмет: Алгебра,
автор: belkovaana7
Предмет: История,
автор: YTKA44
Предмет: Математика,
автор: 1prototip2000