Информатика | 5 - 9 классы
Составьте программу нахождения суммы двух наибольших из трех различных чисел.
Pascal ABC.
Составить программу, которая вводит три числа и печатает сумму двух наибольших?
Составить программу, которая вводит три числа и печатает сумму двух наибольших.
Срочно пожалуйста!
1. Дано 3 числа?
1. Дано 3 числа.
Найти произведение двух наименьших из этих чисел
написать программу на pascal.
Напишите программу?
Напишите программу!
Является ли сумма трех чисел четным числом?
Напишите программу в PascalABC : нахождение наибольшего целого делителя целого числа?
Напишите программу в PascalABC : нахождение наибольшего целого делителя целого числа.
Найти наименьшее общее кратное трех натуральных чисел в Pascal?
Найти наименьшее общее кратное трех натуральных чисел в Pascal.
Квадраты и кубы чисел от 1 до 8 программирование abc pascal?
Квадраты и кубы чисел от 1 до 8 программирование abc pascal.
Составьте программу нахождения суммы большего и меньшего из чисел a, b, c?
Составьте программу нахождения суммы большего и меньшего из чисел a, b, c.
Составить программу нахождения суммы четных чисел на на промежутке от 20 до 30?
Составить программу нахождения суммы четных чисел на на промежутке от 20 до 30.
Составьте программу в Pascal ABC?
Составьте программу в Pascal ABC.
Даны три числа.
Найти наименьшее.
Написать программу в Pascal ABC?
Написать программу в Pascal ABC.
Вычислить значение функции y(x) и вывести его на экран.
На этой странице находится вопрос Составьте программу нахождения суммы двух наибольших из трех различных чисел?, относящийся к категории Информатика. По уровню сложности данный вопрос соответствует знаниям учащихся 5 - 9 классов. Здесь вы найдете правильный ответ, сможете обсудить и сверить свой вариант ответа с мнениями пользователями сайта. С помощью автоматического поиска на этой же странице можно найти похожие вопросы и ответы на них в категории Информатика. Если ответы вызывают сомнение, сформулируйте вопрос иначе. Для этого нажмите кнопку вверху.
Program symma ;
var a, b, c, s : integer ;
begin
Readln(a, b, c) ;
if (a > b) and (c > b) then s : = a + c ;
if (b > a) and (c>a) then s : = b + c ;
if (a>b) and (b>c) then s : = a + b ;
if (b>a) and (a>c) then s : = b + a ;
Writeln(s)
end.