Var
max, prev_max, n: integer;
begin
max := -10000;
prev_max := -10000;
repeat
read(n);
if n > max then begin
prev_max := max;
max := n;
end;
until n = 0;
writeln(max, ' ', prev_max, ' ', prev_max / max);
end.
Ценность информации<span> — одно из важных свойств </span>информации<span>, оценка которого зависит от целей процессов её генерации и обработки. Изучается специальными теориями информации, </span>теорией принятия решений<span>.</span>
Mod - это остаток от числа. Значит, 9 mod 2 = 1
Графический интерфейс и текстовый