var
n, max, count, contrl: integer;
begin
contrl := 0;
max := 0;
Writeln('Введите числа: ');
Readln(n);
while n <> 0 do
begin
Inc(count);
if (n mod 10 = 0) and (n > max) then max := n;
Read(n);
end;
Writeln('Введите контрольное значение: ');
Read(contrl);
Writeln('Получено: ', count, ' чисел');
Writeln('Получено контрольное значение: ', contrl);
Writeln('Вичисленное контрольное значение:: ', max);
if contrl = max then Writeln('Контроль пройден')
else Writeln('Контроль не пройден');
end.
Формат вывода - это двоеточие, после которого следует целое число или выражение.
Это число или выражение задает ширину поля вывода, то есть количество позиций, отводимых под выводимое значение.
Для целых чисел формат вывода имеет вид:
число:ширина
(например i:4)
где число - выводимое значение, а ширина - количество позиций, которые займёт это значение (включая одну позицию для знака числа + или -) Если число имеет больше цифр, чем указывает ширина, то формат вывода игнорируется. Усли меньше - то выводимый текст дополняется слева пробелами до нужной ширины (выводимое значение выравнивается по правому краю).
Для вещественных чисел формат вывода имеет вид:
число:ширина:знаки,
(например i:4:5)
где ширина - количество позиций, которые займёт значение (включая цифры после точки, одну позицию для точки и одну позицию для знака числа + или -), а знаки - количество цифр после точки.
Аналогично, если ширина меньше чем нужно для вывода, то формат вывода игнорируется.