Question

написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям.
Вид экрана:
вычисление стоимости разговора по телефону (2р. - 1мин)
введите исходные данные
длительность разговора (целое число минут) 3
день недели ( 1-пон .... 7-воскр)? 6
предостовляется скидка 20%
стоимость разговора 4.80р

Answer 1

program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
case a of
1..5:
s:=n*2;
6:
s:=10.4;
7:
s:=10.8;
end;
writeln(s);
end.

n-число минут
a-день недели
если case не проходили то можно сделать if
program gt;
var n,a:integer;
s:real;
begin
readln(n);
readln(a);
if(a<6)then s:=n*2;
if(a=6)then s:=10.4;
if(a=7)then s:=10.8;
writeln(s);
end.