p - произведениеs - суммаi - цикловая переменная1. цикл с предусловием whilevarp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; while i < 200 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; i : = i + 1; [или ing(i)]end; writeln(p); writeln(c)end.2. цикл с постусловием repeat varp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; repeatif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; i : = i + 1; [или ing(i)]until i > = 200; writeln(p); writeln(c)end. 3. цикл for varp, s, i : longint; [или integer]beginp : = 1; s : = 0; for i : = 101 to 199 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; end; writeln(p); writeln(c)end.
Ответ дал: Гость
125чел. это 5частей из 7
? чел. это 2 части из 7
125 чел. : 5 частей = (100+25): 5=100: 5+25: 5=20+5=25чел. это 1 часть из 7
25чел. х 2части=50 чел. , которые пришли на финиш после 1 часа
Популярные вопросы