Вопрос Составте программу подсчета натуральных чисел кратных 7 и не кратных 8, не привосходящих 500 Помогит

[Ryslan23rus1]

Составте программу подсчета натуральных чисел кратных 7 и не кратных 8, не привосходящих 500 Помогите срочно!!!

 

[Жандос]

program q195042508; var i, s: Integer; begin for i := 1 to 500 do Inc(s, Integer((i mod 7 = 0) and (i mod 8 <> 0))); WriteLn(s); ReadLn; end.

 

[TAZTEAM]

Составил, можно не благодарить: .//otvet.imgsmail.ru/download/35660807_376dd66e15936669521615b52b1d4eef_800.png