Program Pr1;
var x,y,z:real;
    p:integer;
Procedure my(x,y,z:real; var a,b,c:integer);
begin
a:=int(x);
b:=int(y);
c:=int(z);
end;
begin
writeln('BBeguTe x,y,z');
readln(x,y,z);
my(x,y,z);
writeln('OkpyrJIuJIu x=',x);
writeln('OkpyrJIuJIu y=',y);
writeln('OkpyrJIuJIu z=',z);
p:=x+y+z;
writeln('OTBET: ',p);
end.

#include <stdio.h>
int SimSlovo( char *Slovo);//prototip
int strlen(char *s);
char *strtok (char * str, const char * tokens);

int strlen(char *s)
{
  char* p=s;
 while (*s) s++;
 return s-p;
}

char *strtok (char *str, const char *tokens)
{
 static char *ptr = NULL;   //prisvaivaem znachenie 0
 if (str) ptr = str;     //esli stroka to ptr= stroka
 for (ptr; *ptr>0; ptr++)  //proverki vvedennogo
 if (!ptr) return NULL;
 for (char *p = ptr; *ptr; ptr++)   //(znachenie uk stroki;ukazateli \0;uvelichenie znach stroki)
 for (const char *tk = tokens; *tk; tk++)//ukazateli const tk na tokkens
 if (*ptr == *tk) //sravnenie simvola stroki 
  {
   *ptr++ = 0;
   return p;
  }
 return NULL;
}

int SimSlovo(char *Slovo) //function
{
 int i=0,j=0;
 j=strlen(Slovo)-1; //prisvoenie indeksa poslednei bukvi
 for (i=0;i<=j;i++,j--) //chitaem slovo s dvuh storon
  {                    //do vstrechi
   if (Slovo[i]!=Slovo[j]) return 1; //ne ravno znachit 0
  }
 return 0;//ravno 1
}
int main()
{
 char *input;//stroka sodergachaia simvoli
 char *deltel=" ,"; //simvol ogranichiteli
 char strok[1000];
 char edel;
 int  len;
 int  pos;
 
 input=strok;
 gets(strok);
 len=strlen(input); //opredeliaem dlinu stroki (eto budet konec stroki)
 pos=0; //nachalo stroki
 while(len>pos)
 {
  input = strtok(input,deltel);//nahodim simvol ' ,' v input
  pos=pos+strlen(input)+1;      //i berem ukazatel na sleduiuschii simvol
   //pozicia zaverscheniia
  if(*input ) //esli v stroke schtoto esti
   {
    if ( SimSlovo(input)==1) //poluchaem resultat function
     {
      printf(" ");
      printf(input); //vivodim naidenii
     }
    input+=strlen(input)+1;
    /*perehodim k sleduiuchemu slovu i zaverschaem
    proverku prediduchego */
   }
 }
 return 0;
}

Program Pr1;
var x,y,z:real;
Procedure my(var a,b,c:real);
begin
a:=trunc(a);
b:=trunc(b);
c:=trunc(c);
end;
begin
writeln('BBeguTe x,y,z');
readln(x,y,z);
my(x,y,z);
writeln('OkpyrJIuJIu x=',x);
writeln('OkpyrJIuJIu y=',y);
writeln('OkpyrJIuJIu z=',z);
writeln('OTBET: ',x+y+z);
end.

BBeguTe x,y,z
16.4444
-15.222
18.9876
OkpyrJIuJIu x=16
OkpyrJIuJIu y=-15
OkpyrJIuJIu z=18
OTBET: 19

#include <stdio.h>
#include <conio.h>
#include <math.h>


void main (void){
  clrscr ();
  printf("LW#1");
  int i=1;
  float b, e,S=0,u=2/b;
  do{
    printf("Vvedite tochnost  e=");
    scanf("%g",&e);
  }while((e>0)&&((e<1));
  while ((fabs(u)>e)&&(i<1000)){
    S+=u;
    u=u*(i+2/(-b*(i++));
    }
  printf("Symma ravna %g\nslogeno %i elementov",S,i);
  getch ();

  }//        atof