Регистрация
happynik20021
10.08.2020 08:25
Информатика
Есть ответ 👍

Введите x, вычислите z если x допустимое значение, если нет то пишем x- имеет недопустимое значение, z вычисляется z=sqrt(x+5)

239
349
Посмотреть ответы 2

Ответы на вопрос:

SFDFGDDDDFGDGD
SFDFGDDDDFGDGD
4,5(55 оценок)
Var x, z: real; begin readln(x); if x < -5 then writeln('x - недопустимое число'); else z : = sqrt(x + 5); writeln(z); end.
biksummer23
biksummer23
4,5(9 оценок)

Объяснение:

program nom_4;

var i:integer;

s: real;

begin

s:=0;

for i:=1 to 15 do

s:=1/i;

writeln ('S=', s);

end.

(насколько я понимаю тут имеются в виду четные числа в диапазоне от 1 до 20)

program nom_5;

var n, s:=integer;

begin

s:=0;

for n:=1 to 20 do

if (n mod 2=0) then s:=s+n;

writeln ('S=', s);

end.

(насколько я понимаю тут имеются в виду нечетные числа в диапазоне от 3 до 13)

program nom_6;

var n, s, pr:= integer;

begin

s:=0;

pr:=0;

for n:=3 to 13 do

begin

if (n mod 2<>0) then pr:=n*n;

s:=s+pr;

end;

writeln ('S=', s);

end.

или можно проще

program nom_6;

var n, s:= integer;

begin

s:=0;

for n:=3 to 13 do

s:=sqr(n)+s;

writeln ('S=', s);

end.

program nom_7;

var n, p: integer;

begin

p:=1;

for n:=1 to 8 do

p:=p*n;

writeln ('P=', p);

end.

(я не совсем понимаю что имеется в виду под х, поэтому предположу, что х мы должны ввести самостоятельно)

program nom_8;

var x, s: real;

i: integer;

begin

write ('Введите х');

readln (x);

s:=0;

for i:=2 to 7 do

s:=s+sin(i*x);

writeln ('S=', s);

end.

Популярно: Информатика