Программа в паскале

Question

Программа в паскале

DEMON Профи (699), на голосовании 10 лет назад

Ребят нужно написать в паскале такую программу: Вычеслить и вывести сумму чисел от 21 до 79 делящихся на 13

Answer 1

Пошагово если:

a1:=21 div 13;
an:=79 div 13;
n:=an-a1+1;
s:=(a1+an)*n div 2;
writeln(s*13);

Можно все в одну формулу запихнуть, но тогда макароны получатся некрасивые.

Answer 2

sum:=0;
for i:=21 to 79 do if (i mod 13)=0 then sum:=sum+i ;
writeln(sum);

остальное уже сам оформи