{ лаконично : ) } begin var a: array [1..5] of int64; var i: byte; for i : = 1 to 5 do readln(a[i]); writeln('max: ', system.math.max(a[1], system.math.max(a[2], system.math.max(a[3], system.math.max(a[4], ; end.
info46
16.05.2020
Procedure maximum(a,b: integer; var max: integer); begin if a> b then max: =a else max: =b; end; var x,y,z,q,w,max: integer; begin writeln ('введи 5 чисел'); readln (x,y,z,q,w); maximum(x,y,max); maximum(max,z,max); maximum(max,q,max); maximum (max,w,max); writeln (max); end.
myliar21585356
16.05.2020
Параметры моделирования: 1. классификация текстового документа 2. основные понятия 3. создание текстового документа ход работы 1. текстовый документ: обычный текст-страница, абзац, строка, слово, символ таблица – строка, столбец, клетка программный текст – строка , символ внедренные объекты – рисунок, электронная таблица, диаграмма, другие объекты 2. основные понятия и действия - строка заголовка, строка меню, стандартная панель, панель форматирования, маркеры отступа, линейка, ползунок, курсор, строка состояния, рабочая область, полоса прокрутки. 3. создание документа – запуск программы, набор текста, форматирование, печать.
Краева
16.05.2020
Ужёсткого диска нет ни максимального, ни минимального объёма - в прошлом веке вполне реально было купить жёсткий диск на 40 мегабайт, а сейчас - на 2 и более терабайта. впрочем, master boot record не поддерживает жёсткие диски размером больше 2 терабайт, а ntfs вроде как не поддерживает разделы жёсткого диска менее 8 мегабайт. cd: 140 мб (mini-cd), 702 мб dvd: 4.35 гб (dvd5), 18 гб (dvd18, то есть двухсторонний двухслойный) флеш-память: опять же нет ни минимума, ни максимума, но где-то между 128 мб и 128 гб. blu-ray: 25 гб. впрочем, технология меняется, вроде позже появятся более вместительные.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу и определить максимальное значение из пяти целых ! !