Var money:integer;
min:real;
s:string;
begin
write('Стоимость одной минуты разговора = ');
readln(money);
write('Длительность разговора = ');
readln(min);
write('Какой сегодня день? ');
readln(s);
if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье') then writeln('Стоимость разговора = ',money * min*0.8)
else writeln('Стоимость разговора = ',money*min);
end.
VBA:
Sub P()
Dim x As Double, y As Double
x = Val(InputBox("x = "))
If x <= 0 Then
y = Sin(2 * x)
ElseIf x <= 10 Then
y = Tan(x)
Else: y = 0.33 * x
End If
MsgBox (" Y = " & y)
End Sub
Код находится в приложении.
1) y:= sqrt(a*x+b*x+c*c)/(15*x-sin(x))
2) y:= -12*sqrt(x*(y*y)+cos(a/2))
3) z:= (sin(x)+cos(x))/(sqrt(x*x+15))
4) S:= ((26*k-m)/(6-4*k))-56*m*k
5) y:= x-(sqrt((y*y+2)/2))+2*y