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.

Answer 2

Конечно, вот программы на языке Паскаль для выполнения заданий:

№1) Для нахождения суммы цифр, стоящих на нечётных местах в четырёхзначном числе, вы можете воспользоваться следующим кодом:

pascalCopy code
program SumOfOddDigits;
var
  num, digit, sum: integer;
begin
  write('Введите четырёхзначное число: ');
  readln(num);
  
  if (num >= 1000) and (num <= 9999) then
  begin
    sum := 0;
    digit := num mod 10;
    sum := sum + digit;
    
    num := num div 100;
    digit := num mod 10;
    sum := sum + digit;
    
    writeln('Сумма цифр на нечётных местах: ', sum);
  end
  else
    writeln('Введено неправильное число (не четырёхзначное).');
end.

№2) Для вычисления значения переменной y в зависимости от чётности числа n, используйте следующий код:

pascalCopy code
program CalculateY;
var
  n, y: integer;
begin
  write('Введите целое число n: ');
  readln(n);
  
  if n mod 2 = 0 then
    y := -1
  else if n = 0 then
    y := 0
  else
    y := 1;
    
  writeln('Значение y: ', y);
end.

Эти программы позволят вам выполнить задачи, описанные в вашем вопросе.