Question

Задача по информатике Составьте программу 1 ввести три числа найти наибольшее из них Пример Введите три числа 4 15 9 Наибольшее 15 Плез сделайте в кумире

Answer 1

var  a, b, c: integer;

begin

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

 readln(a, b, c);

 if (a > b) and (a > c) then writeln(a);

 if (b > a) and (b > c) then writeln(b)

 else writeln(c)

end.

Вот

Answer 2

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

kumirCopy code
Программа Наибольшее_число;
Подпрограмма Найти_Наибольшее(var a, b, c, max : целое);
нач
    Если (a >= b) и (a >= c) То
        max := a;
    Иначе Если (b >= a) и (b >= c) То
        max := b;
    Иначе
        max := c;
    КонецЕсли;
конец;

нач
    var число1, число2, число3, наибольшее : целое;
    Вывод "Введите три числа: ";
    Ввод число1, число2, число3;
    
    Найти_Наибольшее(число1, число2, число3, наибольшее);
    
    Вывод "Наибольшее: ", наибольшее;
конец.

Сначала мы создаем подпрограмму Найти_Наибольшее, которая принимает три числа и находит наибольшее из них. Затем в основной части программы мы вводим три числа от пользователя и вызываем эту подпрограмму для поиска наибольшего числа, после чего выводим результат.