Написать программу которая находит сумму цифр числа паскаль ( ну или хотя бы идейку подкиньте)

227

274

Посмотреть ответы 2

Ответы на вопрос:

427v2

Информатика

4,6(37 оценок)

Program summa; var a,x: integer; i,s: integer; begin writeln('введите целое число'); readln( a ); x: =a; s: =0; while ( x< > 0 ) do begin s : = s + (x mod 10); x : = x div 10; end; writeln( 'сумма цифр числа ',a,' = ', s ); end.

kooyrina582mari

Информатика

4,5(95 оценок)

Получим формулу для вывода. то, что находится в переменных a и b буду обозначать [a, b]: [a, b] ввести a, b [a+b, b] a: =a+b [a+b, a] b: =a-b [b, a] a: =a-b [b, a] вывести a+bитак, алгоритм просто меняет местами a и b, и выводит сумму b + a. в порядке возрастания выводов: 3) 7 + 7 = 144) 9 + 6 = 152) 12 + 4 = 161) 8 + 10 = 185) 11 + 9 = 20