Прога на паскале. надо ввести натуральное число и в нем вычислить сумму четных цифр (с конца этого числа) до первой не четной цифры. пример: ввод числа 1784 вывод: 8+4=12

116

443

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

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

loxsanya2017

Информатика

4,7(38 оценок)

Var n,k,sum: integer; s,s1: string; begin write('n = '); readln(n); s: =''; sum: =0; while (n> 0)and(n mod 2 = 0) do begin k: =n mod 10; str(k,s1); s: =s1+'+'+s; sum: =sum+k; n: =n div 10; end; if s< > '' then s[length(s)]: ='='; writeln(s,sum); end. пример: n = 1784 8+4=12

owl42

Информатика

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

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var a, s: integer; begin write('введите число : '); readln(a); while a < > 0 do begin if a mod 2 = 0 then begin s : = s + a mod 10; write(a mod 10); a : = a div 10; if a mod 2 = 0 then write('+') else break end; end; write('='); writeln(s); end. тестовое решение: введите число : 1784 4+8=12