Составить и записать программу, вычисляющую составящую сумму цифр, входящего в 3х-значного числа

143

181

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

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

ЕВБ

Информатика

4,4(73 оценок)

Var a,b,c,m,k: integer; begin readln(a,b,c); if a> 0 then inc(k) else dec(k); if b> 0 then inc(k) else dec(k); if c> 0 then inc(k) else dec(k); if k> 0 then begin if a< b then m: =a else m: =b; if m> c then m: =c; end else begin if a> b then m: =a else m: =b; if m< c then m: =c; end; writeln(m); end.