Ответы на вопрос:
Var r, t, n,sum, sumk: real; i: integer; beginn: =0; r: =0; t: =0; for i: =50 to 100 do beginwrite(i: 3); n: =n+1; if i mod 2=0 then sum: =sum+i; if i mod 3=0 then sumk: =sumk+i; end; writeln; write ( ' четные ', sum: 4, ' кратные 3 ', sumk: 4, ' sum - sumk ', (sum - sumk): 4); end.
Популярно: Информатика
-
nintendo16125.09.2020 14:21
-
denishka950315.01.2022 12:16
-
nicesasha201724.08.2021 19:04
-
Milena25126708.07.2020 04:45
-
TimRus162rusg09.03.2020 13:58
-
Наоя08.11.2022 17:03
-
amalia11013.03.2023 13:17
-
braagin16.12.2022 05:44
-
Polino4444444ka04.01.2021 01:08
-
Попорпо24.12.2020 12:49