ПОЖАЛУЙСТА ПОМОГИТЕ.Напишите, какую задачу решает данная программа? Program zadacha; var a, sot, des, ed: integer; begin write ('введите число'); readln (a); sot:=a div 100; des:=(a div 10) mod 10; ed:=a mod 10; sum:= sot+des+ed writeln (sum); end
Ответ: программа складывает цифры из 3-ёх значного числа
Объяснение: если ввести 147, то программа сделает 1+4+7 и выдаст ответ 12