Question

Добавьте в эту программу(именно в эту программу) условие, при котором он еще будет считать "сумму" чисел и четных, и кратных трем(то есть числа и четные, и кратные, такие как 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.

Answer 1

VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.