Задать вопрос
27 февраля, 16:31

Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число. Если число положительное, то вывести его на печать. иначе вывести " Данное число не является положительным ". задача 3 - Даны два числа. Вывести сначала меньшее. затем большее число. задача 4 - Даны два числа. Вывести порядковый номер меньшего числа. задача 5 - Дано целое число. Если число положительное, то вывести его на печать. Если отрицательное, вывести число, умноженное на - 1. задача 6 - Найдите наименьшее из трех заданных чисел

+5
Ответы (1)
  1. 27 февраля, 16:51
    0
    Задача 1.

    program zz1;

    var a:integer;

    begin

    write ('введите число');

    read (a);

    if (a > 0) then write (' Число положительное ');

    if (a < 0) then write (' Число отрицательное ');

    if (a = 0) then write (' Число равно нулю ');

    end.

    Задача 2.

    program zz1;

    var a:integer;

    begin

    write ('введите число ');

    read (a);

    if (a > 0) then write (a)

    else write (' Данное число не является положительным ');

    end.

    Задача 3.

    program zz1;

    var a, b:integer;

    begin

    write ('введите первое число');

    read (a);

    write ('введите второе число');

    read (b);

    if a < b

    then write (a, ' ', b)

    else write (b, ' ', a);

    end.

    Задача 4.

    program zz1;

    var a, b:integer;

    begin

    write ('введите первое число ');

    read (a);

    write ('введите второе число ');

    read (b);

    if a < b

    then write (1)

    else write (2);

    end.

    Задача 5.

    program zz1;

    var a:integer;

    begin

    write ('введите число ');

    read (a);

    if a > 0

    then write (a)

    else write (a * (-1));

    end.

    Задача 6.

    program zz1;

    var a, b, c, min:integer;

    begin

    write (' введите первое число ');

    read (a);

    write (' введите второе число ');

    read (b);

    write (' введите третье число ');

    read (c);

    if (a
    if (b
    if (c
    write (' наименьшее = ', min);

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
1) Вывести массив A (N). Вывести на печать данные о числе нулевых элементов массива и их номера. Если таковых нет, вывести на печать сообщение об этом 2) Вывести массив А (N, N). Разделить все его элементы на минимальный элемент главной диагонали.
Ответы (1)
1. Даны числа X, Y. Если X>Y, то посчитать S=X+Y, иначе посчитать S=X+Y. 2. Даны числа a, b, cВЫчислить x=a*b (в квадрате) - b; y = (b+c) (в квадрате) - a (в квадрате) Если X>Y, то вывести значение X, иначе вывести значения Y
Ответы (1)
1. Дано двузначное число. Найти разность и частное его цифр. 2. Дано целое число. Если оно является положительным то прибавить к нему 1. Емли нулевым то заменить его на 10. 3. Дано двузначное число. Вывести его левую цифру, потом правую. 4.
Ответы (1)
Играют двое. Первый участник игры называет произвольное целое положительное число, не превышающее десяти, то есть он может назвать число десять и всякое меньшее десяти положительное число.
Ответы (1)
Даны натуральное число x и целые числа a₁, a₂, ..., aₓ. Найти: а) номер максимального из чисел aₓ. Если чисел с максимальным значением несколько, то должен быть найден номер последнего из них; б) номер минимального из чисел aₓ.
Ответы (1)