Question

ПАСКАЛЬ:
Знайдіть всі числа з інтервалу 100-200 кратні 25.
Знайдіть їх суму та кількість.
ЛЮДИИ... ПОМОГИТЕ!!!

Answer 1

 program 12332586; 
var i,s:integer; 
begin S:=0;
for i:=100 to 200 do
if (i mod 25=0) then
S:=S+i;       
writeln(s);           
    end.

Answer 2

Спасибочки!