Помогите с информатикой плес 40б

Question

Помогите с информатикой плес 40б

---

Answer 1

Узнаем,сколько тратит Вася, например, на звонки в месяц на номера своего оператора мобильной связи. Умножим количество минут разговора на цену одной минуты
T1*P1
Узнаем, сколько тратит всего в месяц Вася с тарифом Супер+
T1*P1+T2*P2+T3*P3
Узнаем, сколько тратит всего в месяц Вася с тарифом Супер-
T1*C1+T2*C2+T3*C3
Если T1*C1+T2*C2+T3*C3Если T1*C1+T2*C2+T3*C3
А что за алгоритм? Блок-схему составить? Или программу написать? Или словесный алгоритм?

Comments

программу на Паскале написать :/

---

О, эт я сейчас быстро

---

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);

---

SupPlus:=T1*P1+T2*P2+T3*P3;
SupMinus:=T1*C1+T2*C2+T3*C3;
writeln('Стоимость разговоров за месяц с тарифом Супер+ равна ', SupPlus);
writeln('Стоимость разговоров за месяц с тарифом Супер- равна ', SupMinus);
if SupMinus writeln(SupMinus,'<',SupPlus,', тариф Супер- выгоднее. Васе стоит переходить на новый тариф.')<br> else
writeln(SupMinus,'>',SupPlus,' тариф Супер+ выгоднее. Васе не стоит переходить на новый тариф');
end.

---

Спасибо огромнейшее, как хорошо, что есть такие добрые люди ;)

---

Но не за бесплатно.... Поставь мне оценку :D и дай лучший ответ ^_^

---

Без проблем ;)

---

Слушай, у меня тут еще с некоторыми заданиями возникли вопросы, но я их выложу в другом вопросе

---

ок ;)

---

вот http://znanija.com/task/20121202 :3