Помощь - Поиск - Пользователи - Календарь
Полная версия: Слова Благодарности
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Саня
4.03.2006 9:38
Большое спасибо всем тем, кто мне помогал, особенное спасибо: APAL'у, VOLVO, также
всем администраторам этого сайта, и всем кто принимал участие в разработке и жизни сайта.

По-моему это один из самых лучших сайтов по данной тематике!!!

Задача: Написать программу, которая выдавала бы все 4-х значные числа, удовлетворяющие условию
(abcd), Пример: 1212, 9999,2314 и тд.

Код
program zikl_8;

var c: real;
    a, i,b,t, d1,d4, d2, d3: integer;

begin
   i:=1001;
   repeat

     d1:=i div 1000;
     d2:=i mod 1000;
     d3:=i div 1000;
     d4:=i div 1000;
     a:=d1+d2;
     b:=d3+d4;
     writeln(a,b);
     if a=b then writeln(i);
  {   if i = a then begin
       writeln(a);

     end;}
     i:=i+1;

   until i<=9999;
   writeln;
   writeln;
   readln;
end.
klem4
4.03.2006 15:21
 uses crt;
var
   i,j,k,l : byte;

begin
   clrscr;
   for i := 1 to 9 do
    for j := 0 to 9 do
     for k := 0 to 9 do
      for l := 0 to 9 do
       if (i + j) = (k + l) then writeln(i,j,k,l);
   readln;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.