Добавьте в эту программу(именно в эту программу) условие, при котором он еще будет считать "сумму" чисел и четных, и кратных трем(то есть числа и четные, и кратные, такие как 6,12,18 и тд.) просто добавить в эту программу: program jjj; var i,n,c,kt begin n: =0; c: =0; kt: =0; for i: =50 to 100 do begin write (i: 3); n: =n+1 if i mod 2=0 then c: =c+1; if i mod 3=0 then kt: =kt+1; end; write ('всего ', n: 2, 'четные ', с: 2, 'кратные трём ',kt: 2); end.
