Вопрос по информатике:
Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть вывод данных на дисплей. В Pascal ABC
- 14.10.2017 04:49
- Информатика
- remove_red_eye 13106
- thumb_up 50
Ответы и объяснения 1
PROGRAM max_and_min;
vara,b,c,d,max,min:integer;
BEGIN
writeln('Введите 4 целых числа через пробел или Enter -> ');
readln(a,b,c,d);
if (a>b) then max:=a else max:=b;
if (c>max) then max:=c;
if (d>max) then max:=d;
min:=a;
if bif cif d
writeln('Меньшее из чисел = ',min)
END.
Писал на скорую руку, но вроде всё правильно.
- 15.10.2017 03:53
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.