Найти все четырехзначные числа, у которых равны крайние цифры

@kosinov · Регистрация: 15.01.2013

Очень нужна программа! Найти все четырехзначные числа, у которых равны крайние цифры, а само число делится на 4 и 27.

@DO_oK · 18.01.2013, 21:42

Pascal

var i:integer;
begin
for i:=1000 to 9999 do
if (i mod 4=0)and(i mod 27=0)and((i div 1000)=(i mod 10)) then write(i,' ');
end.

@kosinov 0 / 0 / 0 Регистрация: 15.01.2013 Сообщений: 8
		1
	Найти все четырехзначные числа, у которых равны крайние цифры 18.01.2013, 20:49. Показов 1715. Ответов 1 Метки нет (Все метки) Очень нужна программа! Найти все четырехзначные числа, у которых равны крайние цифры, а само число делится на 4 и 27. 0

	18.01.2013, 21:42

Решение