Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

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

Ответ
 
Опции темы
Старый 15.03.2014, 08:22   #1
vadimmmm
Пользователь
 
Регистрация: 03.03.2014
Сообщений: 15
Репутация: 10
Восклицание Задача из e-olimp №2391

Стоимость разговора
Найти стоимость в копейках телефонного звонка продолжительностью N секунд, если стоимость подключения A коп., тарификация поминутная, т.е. на первой секунде каждой минуты начисляется к оплате B коп.


Технические условия
Входные данные

Три целых неотрицательных числа A, B и N (0 ≤ A, B ≤ 99, 0 ≤ N ≤ 86400).

Выходные данные

Ответ на задачу.
vadimmmm вне форума   Ответить с цитированием
Старый 15.03.2014, 08:52   #2
Vanta11a
Lawful Evil
Профессионал
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Адрес: Навье царство
Сообщений: 1,208
Репутация: 193

icq: 5438392
По умолчанию

Автор, ты идиот.
__________________
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума   Ответить с цитированием
Старый 15.03.2014, 10:56   #3
vadimmmm
Пользователь
 
Регистрация: 03.03.2014
Сообщений: 15
Репутация: 10
По умолчанию

Скажи алгоритм, программу я сам реализую
vadimmmm вне форума   Ответить с цитированием
Старый 15.03.2014, 11:50   #4
Vanta11a
Lawful Evil
Профессионал
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Адрес: Навье царство
Сообщений: 1,208
Репутация: 193

icq: 5438392
По умолчанию

su = N mod 60
если N div 60 != 0 su++
su *= B
su += A
__________________
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума   Ответить с цитированием
Старый 21.11.2017, 16:07   #5
kim-im
Пользователь
 
Регистрация: 07.11.2017
Сообщений: 20
Репутация: 10
По умолчанию

Может кому-то и пригодится:
Код:

var k,a,b,n,i:longint;
 begin
  read(a,b,n);
 if n=0 then write (0) else
  begin
   if n mod 60=0 then n:=n div 60 else n:=(n div 60)+1;
     k:=a;
   for i:=1 to n do
    begin
     k:=k+b;
    end; 
   write (k);
 end;
end.

kim-im вне форума   Ответить с цитированием
Старый 21.11.2017, 16:53   #6
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,048
Репутация: 5228
По умолчанию

Цитата:
Сообщение от kim-im Посмотреть сообщение
Код:

for i:=1 to n do
    begin
     k:=k+b;
    end;

вот это прямо порадовало! Умножение ещё не учили или оно запрещено?..
вместо этого достаточно k:=k +n*b
а вместе:
Код:

var k,a,b,n:longint;
 begin
  read(a,b,n);
  if n=0 then write (0) else
  begin
    k:=n div 60;
    if  n mod 60<>0 then Inc(k);
    Write(k*b+a)
 end;
end.


Последний раз редактировалось Serge_Bliznykov; 21.11.2017 в 16:57.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 21.11.2017, 22:32   #7
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 919
Репутация: 667
По умолчанию

Код:

k:=(n - 1) div 60 + 1;

Black Fregat вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача из e-olimp №915 vadimmmm Паскаль 6 16.03.2014 21:18
Задача из e-olimp №1623 vadimmmm Паскаль 3 15.03.2014 21:42
Задача из e-olimp №76 vadimmmm Паскаль 4 15.03.2014 21:00
Задача из e-olimp №1949 vadimmmm Паскаль 3 15.03.2014 17:51
Задача из e-olimp №8 vadimmmm Паскаль 3 15.03.2014 17:37


04:42.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru