Вводится натуральное число. необходимо подсчитать - вопрос №353698 от школьник619 28.01.2020 02:11

Question

Информатика: Вводится натуральное число. необходимо подсчитать сумму и количество цифр. результат вывести на экран через запятую. в программе должна быть процедура ввода и процедура для подсчёта суммы и количества цифр. обязательное использование цикла с постусловием! паскаль а

школьник619 · Answer

var a,b,c,d,e: integer; begin write( Введите a= ); read(a); b:=10; c:= a+b; writeln( Сумма равна ,c); e:=0; while c 0 do  begin   d:=c mod 10;   c:=c div 10;   e:=e+1;  end;  writeln( В числе , e, цифр(-a/-ы) ); end....