Question

Помогите пожалуйста.Выполните два задания.Язык Паскаль

№1)Дано четырёхзначное число.Найти сумму цифр стоящих на нечётных местах

№2)Дано целое число n.Вычислить:

(-1,если n-чётное

y= (0,если n=0

(1,если n нечётное

Answer 1

Задание 1.

var a,i,sum:integer;

s:string;

begin

 writeln('Введите 4-ёх значное число');

 readln(a);  

 s := IntToStr(a);

 for i := 1 to s.Length do

   if i mod 2 = 1 then

     sum := sum + StrToInt(s[i]);

 writeln('Сумма: ',sum);

end.

Задание 2.

var n,y:integer;

begin

 writeln('Введите число n');

 readln(n);

 if n = 0 then

   y := 0

 else if n mod 2 = 0 then

   y := -1

 else if n mod 2 = 1 then

   y := 1;

 writeln('y = ',y);

end.