Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть вывод данных на дисплей. В Pascal ABC

10-11 класс

Kreuvetka 02 марта 2017 г., 1:11:17 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Yan222222
02 марта 2017 г., 3:24:54 (7 лет назад)

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;

Ответить

Другие вопросы из категории

Дано четырехзначное число. Проверить, является ли оно «счастливым билетом». Примечание: счастливым билетом называется число, в котором: а) при

четном количестве цифр в числе сумма цифр его левой половины равна сумме цифр его правой половины; б) при нечетном количестве цифр – то же самое, но с отбрасыванием серединной цифры. Например, рассмотрим число 1322. Его левая половина равна 13, а правая – 22, и оно является счастливым билетом (т. к. 1 + 3 = 2 + 2). Аналогично: 1735 (1 + 7 = 3 + 5), 1111 (1 + 1 = 1 + 1) и т. д.

Читайте также

Как это сделать в Excel?

Ввести с клавиатуры 3 числа, найти среди них
наименьшее. Предусмотреть выводы данных на дисплей.

Ввести с клавиатуры три числа (x,y,z). Если x<y<z, то все числа удвоить.

Если z<y<x, то максимальное число возвести в квадрат. Если числа не
удовлетворяют ни одному из условий – обнулить их.

1)ввести с клавиатуры массив из n элементов вывести на экран элементы меньшие среднего арифметического всех элементов массива

2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент



Вы находитесь на странице вопроса "Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть вывод данных на дисплей. В Pascal ABC", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.