Вывести ** экран числа кратные 13 из интервала от 1 до 200. посчитать их колличество и...

Question

Вывести на экран числа кратные 13 из интервала от 1 до 200. посчитать их колличество и найти их сумму .


Желательно в турбо Паскале

Comments

щас сделаю

---

vari,s:integer;beginfor i:=1 to 200 do beginif (i mod 13)=0 s:=s+i;end;writeln(s);end.

Answer 1

На паскале не прверял, в текстовике сделал