DAVDIANA98
sot:=k div 100; des:=k mod 100; des:=des div 10; ed:=k mod 10; summa:=summa+(sot+des+ed); end; я вот это месть не понимаю, зачем вы так делаете? ну вот k div 100 это зачем? можете объяснить
Pauel
чтобы например число 306 разложить на цифры 3, 0, 6 и все их суммировать 3+0+6. В комментариях сколько раз вас спрашивали числа (300+301+302) нужно суммировать или цифры? (3+0+0)+(3+0+1)+(3+0+2)+и т.д.
DAVDIANA98
это точно что цифры там надо просто я действия по решению не понимаю
DAVDIANA98
объясните ещё раз именно в решении, а ещё и ответ
Mepkypuu
Var sot,des,ed,k,summa :integer; begin for k:=300 to 500 do begin sot:=k div 100; des:=k mod 100; des:=des div 10; ed:=k mod 10; summa:=summa+(sot+des+ed); end; writeln(summa); end.
Answers & Comments
des:=k mod 100;
des:=des div 10;
ed:=k mod 10;
summa:=summa+(sot+des+ed);
end; я вот это месть не понимаю, зачем вы так делаете? ну вот k div 100 это зачем? можете объяснить
begin
for k:=300 to 500 do
begin
sot:=k div 100;
des:=k mod 100;
des:=des div 10;
ed:=k mod 10;
summa:=summa+(sot+des+ed);
end;
writeln(summa);
end.