Найти произведение и сумму чисел больших 100 и меньших 200 и кратных…

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.