2R0MaNbI4
Узнаем,сколько тратит Вася, например, на звонки в месяц на номера своего оператора мобильной связи. Умножим количество минут разговора на цену одной минуты T1*P1 Узнаем, сколько тратит всего в месяц Вася с тарифом Супер+ T1*P1+T2*P2+T3*P3 Узнаем, сколько тратит всего в месяц Вася с тарифом Супер- T1*C1+T2*C2+T3*C3 Если T1*C1+T2*C2+T3*C3<T1*P1+T2*P2+T3*P3, значит тариф Супер- выгоднее Если T1*C1+T2*C2+T3*C3<T1*P1+T2*P2+T3*P3, значит Васе будет не выгодно переходить на Супер-
А что за алгоритм? Блок-схему составить? Или программу написать? Или словесный алгоритм?
2R0MaNbI4
var T1,T2,T3:integer; //время разговора P1,P2,P3:integer; //цена за одну минуту с тарифом Супер+ C1,C2,C3:integer; //цена за одну минуту с тарифом Супер- SupPlus,SupMinus:integer; //стоимость за месяц begin writeln('Данные вводить в формате 11 22 33'); writeln('Введите время разговора'); readln(T1,T2,T3); writeln('Введите время разговора с тарифом Супер+'); readln(P1,P2,P3); writeln('Введите время разговора с тарифом Супер-'); readln(C1,C2,C3);
2R0MaNbI4
SupPlus:=T1*P1+T2*P2+T3*P3; SupMinus:=T1*C1+T2*C2+T3*C3; writeln('Стоимость разговоров за месяц с тарифом Супер+ равна ', SupPlus); writeln('Стоимость разговоров за месяц с тарифом Супер- равна ', SupMinus); if SupMinus<SupPlus then writeln(SupMinus,'<',SupPlus,', тариф Супер- выгоднее. Васе стоит переходить на новый тариф.') else writeln(SupMinus,'>',SupPlus,' тариф Супер+ выгоднее. Васе не стоит переходить на новый тариф'); end.
Годно
Спасибо огромнейшее, как хорошо, что есть такие добрые люди ;)
2R0MaNbI4
Но не за бесплатно.... Поставь мне оценку :D и дай лучший ответ ^_^
Answers & Comments
T1*P1
Узнаем, сколько тратит всего в месяц Вася с тарифом Супер+
T1*P1+T2*P2+T3*P3
Узнаем, сколько тратит всего в месяц Вася с тарифом Супер-
T1*C1+T2*C2+T3*C3
Если T1*C1+T2*C2+T3*C3<T1*P1+T2*P2+T3*P3, значит тариф Супер- выгоднее
Если T1*C1+T2*C2+T3*C3<T1*P1+T2*P2+T3*P3, значит Васе будет не выгодно переходить на Супер-
А что за алгоритм? Блок-схему составить? Или программу написать? Или словесный алгоритм?
T1,T2,T3:integer; //время разговора
P1,P2,P3:integer; //цена за одну минуту с тарифом Супер+
C1,C2,C3:integer; //цена за одну минуту с тарифом Супер-
SupPlus,SupMinus:integer; //стоимость за месяц
begin
writeln('Данные вводить в формате 11 22 33');
writeln('Введите время разговора');
readln(T1,T2,T3);
writeln('Введите время разговора с тарифом Супер+');
readln(P1,P2,P3);
writeln('Введите время разговора с тарифом Супер-');
readln(C1,C2,C3);
SupMinus:=T1*C1+T2*C2+T3*C3;
writeln('Стоимость разговоров за месяц с тарифом Супер+ равна ', SupPlus);
writeln('Стоимость разговоров за месяц с тарифом Супер- равна ', SupMinus);
if SupMinus<SupPlus then
writeln(SupMinus,'<',SupPlus,', тариф Супер- выгоднее. Васе стоит переходить на новый тариф.')
else
writeln(SupMinus,'>',SupPlus,' тариф Супер+ выгоднее. Васе не стоит переходить на новый тариф');
end.