Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть вывод данных на дисплей. В Pascal ABC
10-11 класс
|
var a,max,min:integer;
begin
readln(a);
max:=a;
min:=a;
readln(a);
if max<a then max:=a;
if min>a then max:=a;
readln(a);
if max<a then max:=a;
if min>a then max:=a;
readln(a);
if max<a then max:=a;
if min>a then max:=a;
writeln('Максимальное число='+max);
writeln('Минимальное число='+min);
end;
Другие вопросы из категории
P:=1;
for I:=1 to 4 do P:=P*I
А. 120
Б. 24
В. 4
четном количестве цифр в числе сумма цифр его левой половины равна сумме цифр его правой половины; б) при нечетном количестве цифр – то же самое, но с отбрасыванием серединной цифры. Например, рассмотрим число 1322. Его левая половина равна 13, а правая – 22, и оно является счастливым билетом (т. к. 1 + 3 = 2 + 2). Аналогично: 1735 (1 + 7 = 3 + 5), 1111 (1 + 1 = 1 + 1) и т. д.
Читайте также
Ввести с клавиатуры 3 числа, найти среди них
наименьшее. Предусмотреть выводы данных на дисплей.
Если z<y<x, то максимальное число возвести в квадрат. Если числа не
удовлетворяют ни одному из условий – обнулить их.
числа из диапазона [1..N].
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент