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 SumOfOddPlaceDigits;
var
  number, digit, sum: integer;
begin
  write('Введите четырёхзначное число: ');
  readln(number);
  
  if (number >= 1000) and (number <= 9999) then
  begin
    sum := 0;
    while number > 0 do
    begin
      digit := number mod 10;
      if digit mod 2 <> 0 then
        sum := sum + digit;
      number := number div 10;
    end;
    writeln('Сумма цифр на нечётных местах: ', sum);
  end
  else
    writeln('Введите четырёхзначное число.');
end.

Задание №2: Вычислить y в зависимости от четности n.

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

Вы можете скомпилировать и запустить эти программы в среде разработки Pascal, чтобы выполнить указанные задания.