Question

Написать программы с использованием команд языка программирования Паскаль. Задача: с клавиатурой вводиться три числа. а) вывести сумму чётных чисел б) вывести только отрицательные числа. в) вывести произведение не чётных чисел. Для каждой буквы написать отдельную программу. Пожалуйста решите

Answer 1

а) var a:array[1..3] of integer;

          s, i: integer;

  begin

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=0

  for i:=1 to 3 do

  begin

  if a[i] mod 2=0 then

  s:=s+a[i]

  end;

  writeln(s);

  readln();

end.

б) var a:array[1..3] of integer;

          s, i: integer;

  begin

  for i:=1 to 3 do

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=0

  for i:=1 to 3 do

  begin

  if a[i]<0 then

  write(a[i], ' ')

  end;

  readln();

end.

в) var a:array[1..3] of integer;

          s, i: integer;

  begin

  for i:=1 to 3 do

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=1

  for i:=1 to 3 do

  begin

  if a[i] mod 3=0 then

  s:=a[i]*a[i];

  end;

  writeln(s);

  readln();

end.

Answer 2

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

а) Вывести сумму чётных чисел:

pascalCopy code
program SumOfEvenNumbers;

var
  num1, num2, num3, sum: integer;

begin
  writeln('Введите три числа:');
  readln(num1, num2, num3);

  sum := 0;

  if num1 mod 2 = 0 then
    sum := sum + num1;
  if num2 mod 2 = 0 then
    sum := sum + num2;
  if num3 mod 2 = 0 then
    sum := sum + num3;

  writeln('Сумма чётных чисел: ', sum);
end.

б) Вывести только отрицательные числа:

pascalCopy code
program PrintNegativeNumbers;

var
  num1, num2, num3: integer;

begin
  writeln('Введите три числа:');
  readln(num1, num2, num3);

  writeln('Отрицательные числа:');

  if num1 < 0 then
    writeln(num1);
  if num2 < 0 then
    writeln(num2);
  if num3 < 0 then
    writeln(num3);
end.

в) Вывести произведение нечётных чисел:

pascalCopy code
program ProductOfOddNumbers;

var
  num1, num2, num3, product: integer;

begin
  writeln('Введите три числа:');
  readln(num1, num2, num3);

  product := 1;

  if num1 mod 2 <> 0 then
    product := product * num1;
  if num2 mod 2 <> 0 then
    product := product * num2;
  if num3 mod 2 <> 0 then
    product := product * num3;

  writeln('Произведение нечётных чисел: ', product);
end.

Вы можете запустить каждую из этих программ и ввести три числа с клавиатуры. Программы выполнят соответствующие операции и выведут результаты на экран.