Вычислить сумму всех тех целых чисел ** промежутке от 1 до 100, которые делятся без...

Question

Вычислить сумму всех тех целых чисел на промежутке от 1 до 100, которые делятся без остатка на 3.

Answer 1

Program gjdkgjdkgd;
var i:integer; 
begin
for i:=1 to 100 do begin 
if i mod 3 = 0 then 
writeln (i)
else ('не кратно');