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

@Кошечка5 · Регистрация: 19.04.2012

Помогите решить задачу на Паскале. СРОЧНО!!!!
Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних цифр,а само число делится на 6 и 27.Найти все натуральные числа из промежутка от 1 до 200, у которых сумма делителей равна S(S вводить с клавиатуры).

@He04eHb · 19.04.2012, 16:19

Pascal

Program pr1;
Var x,t,n,i:integer;
Begin
  for i:=1000 to 9999 do begin
 
n:=(i div 100) mod 10;   // второе число
t:=(i mod 100) div 10;     //третье число
x:=i mod 10;     //четветрое число
 
 if (n+t)=(t+x) then                 // рано ли последний с центральными
     if ((frac(i/6))=0) and ((frac(i/27))=0) then    // деления на 6 и 27 без дроби
writeln(i);
end;
readln;
end.

если конечно не через массив надо=)

Добавлено через 13 минут
Найти все натуральные числа от 1 до 200, у которых сумма делителей равна s

@Кошечка5 · 19.04.2012, 18:24 **[ТС]**

Ну и все равно спасибо большое вам.

@Кошечка5 0 / 0 / 0 Регистрация: 19.04.2012 Сообщений: 15
		1
	Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр 19.04.2012, 15:07. Показов 2691. Ответов 2 Метки нет (Все метки) Помогите решить задачу на Паскале. СРОЧНО!!!! Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних цифр,а само число делится на 6 и 27.Найти все натуральные числа из промежутка от 1 до 200, у которых сумма делителей равна S(S вводить с клавиатуры). 0

@Кошечка5 0 / 0 / 0 Регистрация: 19.04.2012 Сообщений: 15
	19.04.2012, 18:24 [ТС]	3
	Ну и все равно спасибо большое вам. 0

Опции темы

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

Решение