Составить программу нахождения большего из 5 чисел, вводимых с клавиатуры.
5-9 класс
|
program qq;
var a,b,c,d,e:integer;
begin;
readln (a,b,c,d,e);
if (a > b)and ( a > c) and ( a > d) and (a > e) then
writeln ( a);
if ( b>a) and (b>c) and (b>d) and ( b>e) then
writeln ( b);
if ( c>a) and (c>b) and ( c>d) and (c>e) then
writeln ( c);
if ( d>a) and (d>b) and (d>c) and ( d>e) then
writeln ( d);
if ( e>a) and (e>b) and (e>c) and (e>d) then
writeln ( e);
end.
Другие вопросы из категории
Читайте также
пример ввода:
2 5 7 1
пример вывода:
Большее из чисел равно 7
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Дано:числа А и Б
Найти: С-большее из А и Б
2. Составить программу удвоения большего из двух чисел.
3. Написать программу вычисления произведения всех двузначных четных чисел.
4. Определить количество двузначных натуральных чисел, сумма цифр которых равна заданному числу N.
Все в Pascal. Очень прошу помочь