// PascalABC.NET 3.2, сборка 1431 от 28.04.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln(ReadSeqReal(3).Max) end.
Пример 5.2 14 -1.156 14
Writeln предписывает вывести то, что записано у него в скобках. ReadSeqReal(3) обеспечивает чтение трех чисел вещественного типа с клавиатуры, а Max находит максимальное из них...
Смотри я когдата писала такую програму попробуй: var a, b, c, max: longint; begin readln(a, b, c); max:=a; if b > max then max:=b; if c > max then max:=c; writeln(max); readln; end
a, b, c - наши числа max - максимальный Вводим три числа, в ответ получаем максимальный
program parampampam; uses crt; var i: integer; {счетчик} s: integer; begin clrscr; {очистка экрана} writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S'); writeln ('Введите число S, от 0 до 18: '); {ввод числа S с проверкой на корректность} repeat readln (s); if (s>18) or (s<0) then writeln ('Неверный ввод. Повторите') until (s<=18) and (s>=0); {вывод нужных чисел на экран (цикл с предусловием)} for i := 1 to 99 do if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления} write (i, ' '); repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши} end.
1. Определим, какой информационный объём занимает одна страница. Если считать, что используется кодировка ASCII, в которой каждый символ занимает один байт, то 64 символа, помещающиеся на одной странице займут 64 байта. 2. Определим количество страниц в тесте, для чего достаточно разделить объем текста на объем одной страницы. 3 КБ = 3 х 1024 Б = 3072 Б. 3072 / 64 = 48 (страниц) 3. Определим, сколько всего потребуется листов бумаги. Для печати одного экземпляра текста требуется 48 листов, если считать, что текст печатать с одной стороны. Для печати семи копий (неудачный термин, лучше говорить о семи экземплярах, потому что 7 экземпляров - это текст и шесть его копий) потребуется 48 х 7 = 336 (листов) .
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqReal(3).Max)
end.
Пример
5.2 14 -1.156
14
Writeln предписывает вывести то, что записано у него в скобках. ReadSeqReal(3) обеспечивает чтение трех чисел вещественного типа с клавиатуры, а Max находит максимальное из них...