Question

Паскаль!Срочно!Дай 50 баллов

Answer 1

{

begin

 for var x := 3 to 25 do

   writeln('y = ', 2*(x+2)*(x+2) + 5.5*(x+2) -3);

end.

}

{

const

 pass = '145aQ';

var

 input:string;

begin

 readln(input);

 while ( input <> pass) do begin

   write('Введите пароль снова: ');

   readln(input);

 end;

 write('Вход успешен');

end.

}

{

var

 str:string;

 ch:char;

begin

 readln(str);

 read(ch);

 while pos(ch,str)>0 do

   delete(str,pos(ch,str),length(ch));

 write(str);

end.

}

var

 x:integer;

begin

 read(x);

 write( x div 1000 + x div 100 mod 10 + x div 10 mod 10 + x mod 10)

end.