Вычислить стоимость телефонного разговора, предоставляемого по субботе и воскресенье скидки.

@даник12 · Регистрация: 25.04.2011

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста решить пример.о4ень нужно на завтра уже.Вот условие:Вычисление стоимости телефонного разговора, предоставляемого по субботе и воскресенье скидки

Pascal

Var day, time: integer
S: real 
begin
write ('time')
readln('time')
write ('day')
readln('day')
If (day=6) or (day=7) then s:=time*100*70/100
Else s:=time*100;
writeln ('s=', s:2:2)
End

@Puporev · 29.09.2011, 19:02

Pascal

Var day, time: integer;
    c,S: real;
begin
write ('time=');
readln(time);
repeat
write ('day [1..7] day=');
readln(day)
until day in [1..7];
write('cena 1 min=');
readln(c);
If (day=6) or (day=7) then s:=time*c*0.7
Else s:=time*c;
writeln ('s=', s:0:2)
End.

В конце строк, если после них не end,until,else ставится точка с запятой.
В апострофах пишут строковые значения, имена переменных без апострофов.

@даник12 · 29.09.2011, 19:04 **[ТС]**

Спасибо большое.Ты меня выру4ил!!! + 1 поставил тебе

@даник12 2 / 2 / 0 Регистрация: 25.04.2011 Сообщений: 16
	29.09.2011, 19:04 [ТС]	3
	Спасибо большое.Ты меня выру4ил!!! + 1 поставил тебе 0

Опции темы