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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2014, 12:31   #1
artikk009
Новичок
Джуниор
 
Регистрация: 25.10.2014
Сообщений: 1
По умолчанию Дан файл, 2 столбца из чисел, вывести ту строку, произведение элементов которое максимальное

Дан файл, 2 столбца из
чисел, вывести ту строку, произведение
элементов которое максимальное
artikk009 вне форума Ответить с цитированием
Старый 25.10.2014, 13:31   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

вакансия "угадатель языка программирования по заданию" всё ещё открыта.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 25.10.2014, 13:40   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Давай на паскакале угадаю:
Код:
const v='Итак. Паскакали!';
 var q,w,e,pmax:integer; mx,s:string;
begin
 assignfile(input,'file'); pmax:=0;mx:='';
 while not eof(input) do begin
  readln(s); 
  s:=trim(s); val(s,q,e);  if e<>0 then begin val(copy(s,1,e-1),q,e); delete(s,1,e); end;
  s:=trim(s); val(s,w,e);  if e<>0 then begin val(copy(s,1,e-1),w,e); delete(s,1,e); end;
  if q*w>pmax then mx:=s;p:=q*w;end;
 end;
 write(mx); readln;
end.
Топорно, но экзоцентрично.
Короче первое что пришло в башню.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.10.2014, 13:44   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Топорно, но экзоцентрично.
Короче первое что пришло в башню.
Пан знає толк в збоченнях!
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 25.10.2014, 14:00   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Пан знає толк в збоченнях!
Зато такого не будет ни у кого в группе автора
Препод реально обратит внимание на него.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.10.2014, 14:03   #6
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Зато такого не будет ни у кого в группе автора
Препод реально обратит внимание на него.
Абсолютно з тобою згоден.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан массив из десяти целых чисел.Определите,сколько элементов этого массива имеют максимальное значение ( Паскаль ) Diana93 Паскаль, Turbo Pascal, PascalABC.NET 3 13.03.2014 10:05
Дан массив целых чисел. Найти максимальное и минимальное значение. Вывести максимальное на 1-ое место, минимальное на последнее. Punk_Killer Паскаль, Turbo Pascal, PascalABC.NET 1 01.04.2013 09:38
11. Найти произведение элементов нечетных строк массива. Вывести сам массив и произведение. p-6 Паскаль, Turbo Pascal, PascalABC.NET 1 29.11.2012 23:37
Дан вещественный массив А(10,25). Получить произведение элементов кратных 3. Elvina Помощь студентам 1 13.06.2012 00:59
Дан файл, содержащий целые числа. Найти количество нечетных чисел среди элементов файла stasyan Помощь студентам 12 03.04.2010 18:49