Напишите, какую задачу решает данная программа?
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

nikitakyznecov703    3   27.04.2020 08:58    0