создание программы в Pascal

[Александр Волобуев]

№1
Даны действительные числа x,y,z,l. Преверить выполняется ли неравенство z+l<x+y<100

Program A1
var x,y,z,l:integer;
begin
readln (x);
readln (y);
readln (z);
readln (l);
if ((z+l)+(x+y)) and ((x+y)<100)
then
writeln ('выполняется')
else
writeln ('не выполняется')
end.

№2(помогите написать программу)
вычислить
x+x^2/2!+x^4/4!+x^6/6!+x^8/8!+x^10/10!


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Pein95]

мне вот интересно нафига ты писал решение первой задачи?

[Александр Волобуев]

ды может у меня неправильно. может исправить нужно что то

[Pein95]

у тебя проверка какаято странная можна проще:

program Project1;

{$APPTYPE CONSOLE}
var
  x,y,z,l:real;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  Readln(x,y,z,l);
  if (z+l<x+y) and (x+y<100)
  then Writeln('Yes')
  else Writeln('no');
  Readln;
end.

[Ghost of Night]

Александр Волобуев
Код ОФОРМЛЯТЬ нужно

[Александр Волобуев]

Извените, не заметил в привилах. НА будущее запомнил

Помогите пожалуйста со второй задачей.

[Stilet]

А что если заглянуть в анналы истории?
http://www.programmersforum.ru/showthread.php?t=27165
Уловил месседж?

[Александр Волобуев]

Уловил. Большое спасибо