Дан целостный ряд чисел от 0 до 1000. Найти сумму и колличество чисел, кратных 5 и...

Question

Дан целостный ряд чисел от 0 до 1000. Найти сумму и колличество чисел, кратных 5 и оканчивающихся на 0

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 i,k,s:integer;
begin
 for i:=0 to 1000 do
  if (i mod 5=0) and (i mod 10=0) then
   begin
    inc(k);
    s:=s+i;
   end;
 write('Сумма=',s,' количество=',k);
end.