Question

Задача 1: Вводится число с клавиатуры. Если число положительно, то сделать его отрицательным, если число отрицательное, то необходимо умножить его на два. Вывести результат на экран. Задача 2: Вводится число с клавиатуры. Если число положительно, то умножить число на 10, если число отрицательное, то необходимо сделать его положительным, а если это 0, то прибавить к нему 5. Вывести результат на экран. Задача 3: Вводятся три числа с клавиатуры, вывести на экран эти числа в порядке убывания. Задача 4: С клавиатуры вводятся два числа, a и b. Если число a кратно b, то вывести целую часть от деления a на b, а если не кратно, то вывести остаток от деления a на b Задача 5: С клавиатуры вводятся три числа a, b, c, так, что a < b. Если число c находится между a и b, то вывести сообщение «число c принадлежит интервалу [a,b]», в противном случае вывести на экран «число c не принадлежит интервалу [a,b]» Примечание: В этой задаче, при выводе сообщения вместо a, b, c у вас должны отображаться числа, которые вы вводили. все на паскале

Answer 1

Ответ:

я думаю что ето получитса в 1 будет отрицательным

Объяснение:

Answer 2

Конечно, я могу помочь вам с решением этих задач на языке Паскаль. Вот код для каждой из задач:

Задача 1:

pascalCopy code
program Task1;
var
  num: integer;
begin
  writeln('Введите число:');
  readln(num);
  
  if num > 0 then
    num := -num
  else
    num := num * 2;
  
  writeln('Результат:', num);
end.

Задача 2:

pascalCopy code
program Task2;
var
  num: integer;
begin
  writeln('Введите число:');
  readln(num);
  
  if num > 0 then
    num := num * 10
  else if num < 0 then
    num := -num
  else
    num := num + 5;
  
  writeln('Результат:', num);
end.

Задача 3:

pascalCopy code
program Task3;
var
  a, b, c: integer;
begin
  writeln('Введите три числа:');
  readln(a, b, c);
  
  if a >= b then
    writeln('Числа должны быть в порядке убывания!')
  else
  begin
    writeln('Числа в порядке убывания:');
    if a > c then
      write(a, ' ')
    else
      write(c, ' ');
    
    if b > c then
      writeln(b)
    else
      writeln(c);
  end;
end.

Задача 4:

pascalCopy code
program Task4;
var
  a, b: integer;
begin
  writeln('Введите два числа:');
  readln(a, b);
  
  if a mod b = 0 then
    writeln('Целая часть от деления a на b:', a div b)
  else
    writeln('Остаток от деления a на b:', a mod b);
end.

Задача 5:

pascalCopy code
program Task5;
var
  a, b, c: integer;
begin
  writeln('Введите три числа:');
  readln(a, b, c);
  
  if (a < b) and (c > a) and (c < b) then
    writeln('Число ', c, ' принадлежит интервалу [', a, ',', b, ']')
  else
    writeln('Число ', c, ' не принадлежит интервалу [', a, ',', b, ']');
end.

Скопируйте каждый из этих кодов в вашу среду разработки Паскаль и выполните программы для проверки результатов.