Вывести трехзначные числа, для которых сумма первой и последней цифры кратна 6

@typak · Регистрация: 20.06.2012

Вывести на экран все 3х значные числа для которых сумма первой и последней цифры кратно 6

@CodeR · 06.07.2012, 15:49

Pascal

Var i:integer;
Begin
    For i:=100 to 999 do
     if ((i div 100)+(i mod 10)) mod 6 = 0 then write(i:4);
End.

@typak 0 / 0 / 0 Регистрация: 20.06.2012 Сообщений: 57
		1
	Вывести трехзначные числа, для которых сумма первой и последней цифры кратна 6 06.07.2012, 15:37. Показов 2071. Ответов 1 Метки нет (Все метки) Вывести на экран все 3х значные числа для которых сумма первой и последней цифры кратно 6 0

	06.07.2012, 15:49

Опции темы

Решение