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.
304₈ - 275₈ - 1 = (304₈+3) - (275₈+3) - 1 = 307₈ - 300₈ - 1 = 7 - 1 = 6 чисел
Var
n,k:integer;
begin
k:=5; n:=1;
repeat
k:=k+2;
n:=n+1
until n=10;
Writeln(k)
end.
Результат
23
Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
Ответ выводится в формате (номинал) х (кол-во)
Одна программа длинная, но простая, а другая - более сложная.