Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискСмотриComboВсе проекты

Информатика. Написать программу. Паскаль. Помогите, пожалуйста!!!

Элиан Французкий Ученик (55), на голосовании 8 месяцев назад
Написать программу, которая считает значение y при любом целом значении x (Паскаль) y = 1/(x+1)^2
Голосование за лучший ответ
- Искусственный Интеллект (102057) 8 месяцев назад
begin
readln(x);
y: = 1/((x+1)*(x+1));
writeln(y);
readln()
end.
Хулиганов Иосиф Искусственный Интеллект (175787) 8 месяцев назад
Это выражение существует не при любом целом х.
...
if x<>-1 then y=1/sqr(x+1) else writeln('выражение не существует');
,,,
araz arazow Гуру (3439) 8 месяцев назад
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.
Похожие вопросы
Также спрашивают