Quote (Руслан)
помогите решить
Услуги телефонной сети оплачиваются по следущему правилу: за разговоры до А минут в месяц оплачивются В руб, а разговоры сверх установленной нормы оплачиваются из расчета С руб, в минуту. Написать программу, вычесляющую плату за пользование телефоном для введеного времени разговоров за месяц.
ответ:
program razgovoru;
uses crt;
var a,b,c,d,e,f:integer;
begin
clrscr;
a:=0;
writeln('Vvedite normy minyt');
read(a);
writeln('Vvedite koli4estvo minut');
read(b);
writeln('Vvedite razmer oplatu za 1 minyty');
read©;
if b<=a then
d:=c*b;
writeln('Symma k oplate = ',d);
if b>a then
writeln('Vvedite oplaty sverh normu');
read(e);
f:=b*e;
writeln('Symma k oplate sverh normu = ',f);
end.
