Информатика
Информатика. Написать программу. Паскаль. Помогите, пожалуйста!!! Написать программу, которая считает значение y при любом целом значении x (Паскаль) y = 1/(x+1)^2 1 месяц
Ответы
begin readln(x); y: = 1/((x+1)*(x+1)); writeln(y); readln() end.
Это выражение существует не при любом целом х. ... if x<>-1 then y=1/sqr(x+1) else writeln('выражение не существует'); ,,,
program Sm; uses crt; var x: integer; label 1; begin clrscr; writeln; 1:write('':5,' x <>-1 wwedite x = '); read(x); if x = -1 then goto 1; writeln('':5,' y = ', 1/sqr(x+1)); end.