Найти сумму целых положительных чисел больших 20, меньших 100 и заканчивающихся на 2,4 или 8

@Waralian · Регистрация: 04.05.2015

найти сумму целых положительных чисел больших 20 меньших 100 и заканчивающихся на 2,4 или 8

@Puporev · 15.09.2015, 07:14

Delphi

1
2
3

sum:=0;
for i:=22 to 98 do
if i mod 10 in [2,4,8] then sum:=sum+i;

@Tungyshbay · 09.12.2015, 20:25

Delphi

1
2
3

sum:=0;
for i:=22 to 98 do
if i mod 10 in [2,4,8] then sum:=sum+i

@Waralian 0 / 0 / 0 Регистрация: 04.05.2015 Сообщений: 14
		1
	Найти сумму целых положительных чисел больших 20, меньших 100 и заканчивающихся на 2,4 или 8 15.09.2015, 06:03. Показов 1543. Ответов 2 Метки нет (Все метки) найти сумму целых положительных чисел больших 20 меньших 100 и заканчивающихся на 2,4 или 8 0

	09.12.2015, 20:25

Решение