Ryslan23rus1 R Ryslan23rus1 Регистрация 24 Май 2013 Сообщения 91 Репутация 0 Спасибо 0 Монет 0 27 Окт 2016 #1 Составте программу подсчета натуральных чисел кратных 7 и не кратных 8, не привосходящих 500 Помогите срочно!!!
Составте программу подсчета натуральных чисел кратных 7 и не кратных 8, не привосходящих 500 Помогите срочно!!!
Жандос Ж Жандос Регистрация 28 Авг 2013 Сообщения 80 Репутация -2 Спасибо 0 Монет 0 27 Окт 2016 #2 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. Позитивный голос 0
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 T TAZTEAM Регистрация 25 Июн 2013 Сообщения 101 Репутация 4 Спасибо 0 Монет 0 27 Окт 2016 #3 Составил, можно не благодарить: .//otvet.imgsmail.ru/download/35660807_376dd66e15936669521615b52b1d4eef_800.png Позитивный голос 0
Составил, можно не благодарить: .//otvet.imgsmail.ru/download/35660807_376dd66e15936669521615b52b1d4eef_800.png