Найти сумму цифр от 300 до 500. Это надо сделать в программе ПАСКАЛЬ. Напишите пжл.

Question

Найти сумму цифр от 300 до 500. Это надо сделать в программе ПАСКАЛЬ. Напишите пжл.

Comments

ок,берусь)

---

цифр или чисел?

---

DAVDIANA98, вы сами уверены в разнице между цифрами и числами, если маркируете ответ?

---

формулируйте задание правильно)

---

ага, спасибо заранее, жду

---

ну хорошо) жди)

---

это точно

---

цифр

Answer 1

Ответ выкладываю файлом

Comments

не знаю, они вроде как сохраняются в любом случае)

---

это точно что цифры там надо просто я действия по решению не понимаю

---

Павел, спасибо, что помогаете)

---

чтобы например число 306 разложить на цифры 3, 0, 6 и все их суммировать 3+0+6. В комментариях сколько раз вас спрашивали числа (300+301+302) нужно суммировать или цифры? (3+0+0)+(3+0+1)+(3+0+2)+и т.д.

---

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 это зачем? можете объяснить

---

программу запусти-выведет ответ

---

а что в ответе получается?

---

мне надо его удалить

---

объясните ещё раз именно в решении, а ещё и ответ

Answer 2

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.