Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.04.2009, 22:17   #1
NightFire
Пользователь
 
Регистрация: 01.03.2009
Сообщений: 25
Вопрос Паскаль.помощь с условием задачи

Не могу разобраться с условием задачи и никак не приходит в голову как её сделать.Обращаюсь с просьбой подкинуть идею и как решить

ЗАДАЧА:
Найти все пары одинаковых значений среди четырех переменных.
NightFire вне форума Ответить с цитированием
Старый 14.04.2009, 08:12   #2
Rusl92
Форумчанин
 
Аватар для Rusl92
 
Регистрация: 30.03.2008
Сообщений: 392
По умолчанию

Код:
const n=4;
var i,j,shet:integer;
     a:array[1..n] of integer;
begin
   shet:=0;
   for i:=1 to n do
   readln(a[i]);
   for i:=1 to n-1 do
    for j:=i+1 to n do
     if a[i]=a[j] 
      then
       begin
        inc(shet);
        writeln(shet,' пара чисел ',a[i],'&',a[j]);
       end;
     if shet=0
       then write('Net odinakovih');
     readln
end.
Если нужна помощь - пиши, 395359808
Программирование - это великое искусство... Такое же как например и живопись!
Rusl92 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задачи на Паскаль maksu6ka2009 Паскаль, Turbo Pascal, PascalABC.NET 14 22.05.2011 12:56
2 задачи на Паскаль MIRRA Паскаль, Turbo Pascal, PascalABC.NET 8 11.11.2008 09:28
Задачи...Паскаль Silena Помощь студентам 6 25.03.2008 16:27
4 задачи, Паскаль VirtuozZz Помощь студентам 9 26.04.2007 22:41