Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:контрольная работа / вар 09 / задание2
.txt Program zadanie_2;
Const a = 20.3;
Var f,x : real;
Begin
Writeln ( '‚ўҐ¤ЁвҐ x');
Read (x);
If x > 1 then f:= 0.4343*ln(x+1)
else if(x<=1) then f:= sqr(sin(sqrt(abs(a*x))));
Writeln (' f= ',f:8:3);
End.
Const a = 20.3;
Var f,x : real;
Begin
Writeln ( '‚ўҐ¤ЁвҐ x');
Read (x);
If x > 1 then f:= 0.4343*ln(x+1)
else if(x<=1) then f:= sqr(sin(sqrt(abs(a*x))));
Writeln (' f= ',f:8:3);
End.
Соседние файлы в папке вар 09