Вычислить Значения Функции Паскаль. Срочно нужен ответ.. Created by sasha23191. informatika-ru

Вычислить Значения Функции Паскаль. Срочно нужен ответ...

wasdPror Program a1;
var x,f: real;
beginreadln (x);
if x<=0 then f:=x*x else f:=x/10;
writeln ('f=',f);
end.

1 votes Thanks 1

Студэнt //прога на Pascal`e
var
x: real;

function f (a:real):real;
begin
if a<=0 then f:=sqr(a) else f:=a/10;
end;

begin
write ('Введите x: ');
readln (x);
write ('f(', x, ') = ', f(x) );
end.

0 votes Thanks 1

Answers & Comments

vychislit summu naturalnyh chiselkratnyh 3menshuyu 100paskal

dany tri chislaab i c najti raznost naibolshego i naimenshego iz nih

dany tri chislaab i copredelite znacheniya naimenshego iz nih

sostavit 5 voprosov k 9 10 glaveproizvedenie ubityj pod moskvoj

postrojte grafik funkcij55d8539250e7128253bb6867c5254bfc 75956

po zadannomu vremeni t ukazhite vremya sutokutrodenvechernoch

dano chislo aesli ono odnoznachnoeto umnozhit ego na 3esli trehznachnoe razdel

najti storony pryamougolnika esli odna bolshe drugoj na 14 sma diagonal rovna

s klaviatury vvodetmya massia iz n celyh chiselsostavit programmu i vyvesti nae5837fe371f172a433dea5f680f99d14 76465

s klaviatury vvodetmya massia iz n celyh chiselsostavit programmu i vyvesti na

рекомендуемые вопросы

Helpful Links

Helpful Social