Дано пятизначное число . найти сумму его чисел Паскаль
Дано пятизначное число . найти сумму его чисел Паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar x,s,i:integer; begin writeln('введите число'); readln(x); s:=0; while ( x<>0 ) do begin s:=s+(x mod 10); x:=x div 10; end; writeln( 'Сумма цифр числа =', s ); end.
Не нашли ответ?
Похожие вопросы