Найти все симметричные четырехзначные натуральные числа (например, 7557,1221), которые делятся на заданное

@redrose · Регистрация: 30.10.2015

в Pascal найти все симметричные четырехзначные натуральные числа (например, 7557,1221), которые делятся на заданное число А.

@vint-81 · 31.10.2015, 06:32

Pascal

var a,i,j:integer;
begin
 write('a=?: ');readln(a);
 for i:=1 to 9 do
  for j:=0 to 9 do
   if (i*1000+j*100+j*10+i) mod a=0 then write(i*1000+j*100+j*10+i,' ')
end.

@redrose 0 / 0 / 0 Регистрация: 30.10.2015 Сообщений: 7
		1
	Найти все симметричные четырехзначные натуральные числа (например, 7557,1221), которые делятся на заданное 30.10.2015, 21:19. Показов 2560. Ответов 1 Метки нет (Все метки) в Pascal найти все симметричные четырехзначные натуральные числа (например, 7557,1221), которые делятся на заданное число А. 0

Опции темы

Найти все симметричные четырехзначные натуральные числа (например, 7557,1221), которые делятся на заданное

Решение