Задать вопрос
20 августа, 16:11

Написать программу для определения большего числа из 3 вводимых чисел

+4
Ответы (1)
  1. 20 августа, 19:50
    0
    Var a1, a2, a3, max: integer;

    begin

    write ('Введите три числа: ') ;

    readln (a1, a2, a3) ;

    if a1 > = a2 then max : = a1 else max : = a2;

    if a3 > max then max : = a3;

    writeln ('Максимальное из них: ', max) ; readln

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Написать программу для определения большего числа из 3 вводимых чисел ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Написать программу, вычисляющую сумму отрицательных чисел, кратных 5, среди пяти, вводимых с клавиатуры. 2. Написать программу, вычисляющую произведение чисел, оканчивающихся цифрами 2 и 4, среди пяти, вводимых с клавиатуры. 3.
Ответы (1)
Вычислить произведение четырех натур. чисел, используя только операцию сложения. (Язык пр:pascal) 1) Написать программу (обычную) 2) Написать программу с использованием процедуры 3) Написать программу с исп. функции 4) Написать программу с исп.
Ответы (1)
Помогите! 1) Составь программу для решения уравнения ax=b, произвольно вводимых с клавиатуры a и b. 2) Написать программу, которая вычисляет сумму нечетных чисел от 11 и до n задаваемого клавиатуры, но больше 11
Ответы (2)
1. с клавиатуры вводится n действительных чисел. Определить сколько в данной последовательности нечетных отрицательных чисел. 2. Составить программу на языке Паскаль вычисления кубов чисел вводимых с клавиатуры. 3.
Ответы (1)
С клавиатуры вводится 10 произвольных чисел. Составить блок-схему и программу определения суммы всех вводимых чисел.
Ответы (1)