Написать программу определения стоимости разговора с учетом скидки 30 % , предоставляемой по субботам и 35%- предоставляемой по воскресеньям.
Program Stoimost;
var a,b,s,c :integer;
begin
writeln(Введите стоимость за минуту разговора );
read(b );
writeln(Введите количество минут );
read(s);
writeln(Если покупка была совершена в субботу, то введите цифру 1,если в воскресенье, то введите цифру 2, а если в другие дни, то 0 );
read(a);
if a:=1 then
c:= b*s*0,7;
if a:=2 then
c:=b*s*0,65;
if a:=2 then
c:=b*s;
write(c);
end.
скорее всего не правильно, но попробуй
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
