Нужно написать эту программу на Pascal, помогите пожалуйста. Буду очень благодарен.

+ 0 -

Руська2306

13 янв. 2015 г., 21:57:21 (9 лет назад)

program primer;
var A, B, W, k, X : real;
begin
writeln('vvedite A,B,W,k');
  readln(A, B, W, k);
  if (k = 1) then
    X := ln(W - A) / ln(2)
  else if (k = 2) then
    X := sqrt(sqr(W) + B * W + A)
  else if (k = 3) then
    X := sqrt(W + A) + sqrt(W + B)
  else
if (k>3) then
    X := exp(-A * W / B);
  writeln('X=',X);
readln;
end.

+ 0 -

RainDeath1

13 янв. 2015 г., 23:09:59 (9 лет назад)

var A, B, W, k, X : real;
begin
  read(A, B, W, k);
  if (k = 1) then
    X := ln(W - A) / ln(2)
  else if (k = 2) then
    X := sqrt(sqr(W) + B * W + A)
  else if (k = 3) then
    X := sqrt(W + A) + sqrt(W + B)
  else
    X := exp(-A * W / B);
  writeln(X);
end.